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1.0  INTRODUCTION 


It 


The  ON  LINE  DIGITIZER  Is  a  digital  data  record t ng/playback 
system  capable  of  recording  real  time  video  for 
approximately  15  minutes  continuously  along  with  16 
auxiliary  channels  and  one  digital  channel .  The  main  Input 
Is  either  standard  RS-170  or  RS-343  video  which  Is  dtglttzad 
at  10.08  MHZ  and  phase  locked  to  video  horizontal  sync.  The 
first  512  samples  of  the  521  digitized  on  each  line  are 
stored  In  the  ON  LINE  DIGITIZER  frame  buffer  <AVA>.  The  16 
auxiliary  channels  are  -10.  to  *10.  volt  analog  Input  that 
are  digitized  to  12  bits  and  sampled  at  the  (video 
horizontal  sync  rate)/16.  The  digital  channel  Is  RS-232 
input.  All  data  other  than  the  video  Is  stored  during  the 
field  Into  a  memory  and  transfered  to  AVA  frame  buffer 
memory  during  the  video  vertical  Interval. 

The  ON  LINE  DIGITIZER  consists  of  two  major  subsystems,  the 
airborne  unit  and  the  ground  unit.  The  airborne  unit 
contains  an  Ampex  AR-1700  28  track  digital  tape  recorder 
with  a  custom  digital  processing  unit.  The  airborne  unit  Is 
for  use  In  aircraft,  range,  or  laboratory  data  recording. 
The  ground  unit  contains  an  Ampex  HBR-3000  28  track  digital 
tape  recorder  with  Datum  IRIG  search  unit  and  digital  Image 
frame  buffer.  The  ground  unit  takes  the  recorded  28  track 
tapes  and  plays  back  the  data  at  selected  rates  for  review 
and  transfer  of  data  to  the  computer.  The  Image  frame 
buffer  contains  memory  area  to  hold  4  sequential  video 
fields  (512  pixels  by  240  lines),  256  auxiliary  words  and 
frame  IRIG  time.  This  report  describes  and  lists  software 
utilities  for  use  with  the  ON  LINE  DIGITIZER  ground  unit 
which  are  necessary  to  transfer  data  In  various  modes  of 
operation  and  diagnostic  utilities  for  hardware  testing. 

The  two  subsystems  of  the  ON  LINE  DIGITIZER  can  be  connected 
together  in  a  real  time  mode  bypassing  the  tape  drives. 
This  mode  Is  used  In  diagnostic  tests  and  for  single  snap 
shot  digitization  of  Images. 

The  ON  LINE  DIGITIZER  has  been  In  a  continuous  state  of 
hardware  upgrade  and  software  development  since  Its 
Installation  In  the  Sensor  Signal  Processing  System  (SSPS) 
and  will  continue  to  be  modified  to  add  additional 
Improvements  and  capability  which  may  Impact  execution  of 
the  software  described  In  this  report. 


2.0  GENERAL  USAGE  AND  PROCESS  QUOTAS 


This  following  software  can  ONLY  be  run  under  the  AVA 
username.  The  process  quotas  under  AVA  have  been  set  to 
allow  large  buffered  I/O  transfers. 

The  AVA  frame  buffer  has  four  fields  stored  at  a  time.  The 
dip  swttch  on  card  13  In  the  frame  buffer  housing  allows 
display  of  fields  0  and  1  Individually  In  realtime.  Field  2 
and  3  can  also  be  displayed  but  only  combined  with  0  and  1 
respectively.  This  dip  switch  along  with  the  master  toggle 
switch  should  be  specifically  set  to  allow  viewing  of  the 
desired  data  during  playback  or  In  real  time  direct  connect 
mode . 


3.0  HARDWARE /SOFTWARE  INTERFACES 


The  On  line  digitizer  frame  buffer  (AVA)  uses  a  programed 
I/O  Interface  to  the  UNIBUS  on  a  VAX  11/780.  This  unique 
device  does  not  have  DMA  capability.  The  Interface  also 
requires  total  bus  control  during  the  I/O  transfer.  It  will 
not  tolerate  things  like  Interval  clock  Interrupts,  etc. 
and  therefore  the  driver  raises  the  Interrupt  priority  level 
to  “handle’  this.  The  only  after  effect  Is  the  CPU  clock 
and  other  things  waiting  for  the  I/O  driver  to  release  the 
CPU  and  UNIBUS  do  not  get  serviced  and  of  course  all  other 
processes  have  to  wait  until  the  I/O  Is  complete.  The 
software  driver  AVDRIVER  Is  listed  In  the  appendix. 

The  On  line  digitizer  search  unit  Is  Interfaced  to  the  VAX 
UNIBUS  with  a  standard  DEC  DRll-C.  This  unit  can  control 
all  ground  unit  functions  or  can  be  remotely  under  software 
control.  The  software  driver  OOORIVER  Is  listed  In  the 
append  1 x . 


4.0  SOFTWARE  UTILITIES  FOR  IMAGE  TRANSFER 
4.1  Images  To  Disk 


The  following  programs  are  to  be  used  when  large  amounts  of 
disk  space  are  available.  Large  being  defined  as  enough 
contiguous  space  to  hold  the  number  of  destred  Images  which 
can  be  calculated  as  follows: 


BLOCKS-NI+1 <  NI«NC*NR*NB  1/512  > 


where 


BLOCKS-NUMBER  OF  CONTIGUOUS  BLOCKS  OF  DISK  SPACE  NEEDED  (512  BYTES  PER  BLOCK) 
NI-NUMBER  OF  IMAGES 

NC-NUMBER  OF  COLUMNS  IN  THE  IMAGE  (Horizontal  Picture  elements) 

NR-NUMBER  OF  ROWS  IN  THE  IMAGE  (Vertical  Picture  elements) 

NB-NUMBER  OF  BYTES  PER  PICTURE  ELEMENT  (normally  8  bits/pixel) 


4.1.1  Single  Image  To  Disk  :  CD ISKI AVAT0DSK2  - 


The  Image  to  disk  program  will  transfer  the  current  Image  In 
the  AVA  frame  buffers  0  and  1  to  a  complete  frame  In 
contiguous  Image  disk  format.  Note  that  this  Is  true  If  the 
frame  Is  “frozen*  or  not.  The  normal  mode  Is  to  freeze  the 
frame  using  the  STOP  control  on  the  ground  unit  and  then 
execute  the  program  to  transfer  the  Image.  The  disk  format 
Is  transfered  easily  to  tape  with 
9DISKSUSERDISK: [SUB IMAGE  1 SUBNATO.  The  user  will  be  asked  to 
enter  the  disk  storage  name.  The  standard  convention  used 
for  disk  Image  names  Is  described  as  follows: 

XyyyyZZZZ. IMG 


where 


X"  Alpha  character 
y”  Sequence  number 

Z«  Subimage  sequence  number  (l.e.  Subimage  of  Xyyyy > 


4.2  Sequential  Images  To  Disk  :  CMAXD I  SKI MT0DSK3 


Sequential  Images  can  be  transfered  from  the  H8R-3000  during 
32  to  1  playback  or  3  3/4  speed  to  disk.  MT0DSK3  checks  the 
disk  and  allows  transfer  only  after  It  knows  how  many 
contiguous  blocks  are  available  for  Image  storage.  The 
Images  are  placed  In  IMAGES . DAT .  Only  fields  0  and  1  are 
transfered  to  disk.  Fields  2  and  3  are  skipped  to  allow 
time  for  field  0  and  1  transfer  completion.  This  of  course 
means  only  every  other  frame  Is  transfered  to  disk. 


4.3  Sequential  Images  To  Disk  :  CMAXDISKIMT0DSK3A 


This  program  performs  the  same  funtlons  as  MT0DSK3  however 
In  addition  the  frame  buffer  IRIG  time  Is  also  stored  In 
memory  for  each  Image.  After  all  Images  have  been 
transfered  to  disk  the  stored  IRIG  times  are  written  to 
DISKSAVA: CAVA] IRIGS.DAT. 
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4.4  Sequential  Inages  To  Disk  Plus  :  CMAXO I $K 3 MTODSK4 


Sequential  Inages  can  be  transfered  from  the  HBR-3000  during 
32  to  1  playback  or  3  3/4  speed  to  disk.  MT0DSK4  checks  the 
disk  and  allows  transfer  only  after  It  knows  how  many 
contiguous  blocks  are  available  for  Image  storage.  The 
Images  are  placed  In  IMAGES.DAT.  The  program  puts  out  the 
maximum  number  of  fields  to  disk  possible.  This  Is  more 
data  than  MT0DSK3  will  transfer  since  It  checks  to  see  If 
I/O  is  complete  and  then  tranfers  the  next  available  field 
regardless  of  which  one  It  is. 


4.4.1  Initial  And  Subsequent  Runs  Of  MT0DSK3.MT0DSK3A  Or 
MT0DSK4  - 

The  Initial  run  of  MT0DSK3 . MT0DSK3A  or  MT0DSK4  will  not 
start  I/O  transmission  Immediately  after  the  beginning  of 
the  run.  The  disk  space  Is  Interrogated  to  decide  what  Is 
the  maximum  contiguous  space  available.  In  order  for  the 
entire  disk  space  to  be  usable  contiguously,  the  disk  pack 
must  be  initialized  with  the  / I NDEX-BEG I NNING  qualifier. 
Interrogation  may  take  several  seconds  before  the  search  is 
complete.  After  the  largest  space  Is  found  the  file  Is 
opened  and  the  area  Is  allocated.  The  size  of  this 
allocated  area  and  hence  the  number  of  Images  which  can  be 
written  Is  highly  dependant  on  the  specific  medium  (disk 
pack)  used  In  the  disk  drive.  Individual  disk  packs  have 
different  characteristics  one  of  which  Is  where  the  bad 
blocks,  If  any,  are  located.  If  very  long  sequences  of  data 
are  needed  to  be  transfered  several  packs  may  have  to  be 
checked  before  actual  execution.  After  the  IMAGES.DAT  file 
has  been  created  by  the  Initial  run  of  MTOOSK3 .MT0DSK3A  or 
MT0DSK4  the  file  will  be  over  written  by  any  subsequent 
running  of  these  programs.  Therefore  If  the  data  on  the 
disk  In  IMAGES.DAT  Is  needed  In  this  form  another  disk  pack 
Is  required  before  the  subsequent  runs. 


5.0  UTILITIES  FOR  DISPLAY  OF  IMAGES  ON  OISK 


U 


S.l  Display  Of  A  Single  Image  From  Disk  :  f SUB  IMAGE 


The  subimage  data  base  software  uses  the  SSPS  standard  Image 
file  format  which  consists  of  a  contiguous  Image  file  and 
associated  header  file  with  the  same  name.  The  subimage 
data  base  software  Is  executed  by  the  command  9SUBIMAGE. 
The  operator  enters  the  following  answers  to  program 
quest  1 ons : 

1.  Is  a  new  Image  list  file  required?  NO 

2.  Is  Image  from  disk  or  tape?  (D  or  T>  D 

The  operator  then  enters  the  following  commands: 


1  .  I 
2. 

3.  2 

4.  <CR> 


tells  the  program  you  want  to  load  an  Image  file 
“enter  the  Image  f lie  name  here  YYYYYZZZZ . IMG" 
tells  the  program  you  want  to  display  loaded  Image 
just  enter  carriage  return  for  the  AGC  value 


The  Image  Is  now  displayed  on  the  Grlnnell 


5.  N  tells  the  program  you  want  to  go  to  the  next  Image 

6.  GO  TO  1 . 


5.2  Display  Of  IMAGES . OAT 


IMAGES . DAT  is  generated  by  MT0DSK3 , MT0DSK3A,  or  MT0DSK4  on 
DISKSAVA: CAVA] .  The  file  is  one  large  contiguous  set  of 
Images  512  by  240  pixels  per  field.  To  transfer  IMAGES.DAT 
to  the  GRINNELL  one  of  the  following  routines  can  be  used: 

*  IMAXD I  SKI MDSKTOGRN  -  Transfers  full  frames  of 
Images  to  the  GRINNELL  field  at  a  time. 

*  IMAXDISK1MDT0GRN  -  Transfers  full  frames  of  Images 
to  the  GRINNELL  frame  at  a  time. 

*  CMAXO I SK] F I ELDSGRN  -  Transfers  fields  as  one  Image 
to  the  GRINNELL  field  at  a  time. 


8.0  IMAGES.DAT  TO  SUBIMAGE  DISK  FORMAT  CMAXDI SK1MDSKT0F iL 


MDSKTOFIL  takes  the  IMAGES.DAT  file  and  transfers,  from  the 
desired  starting  Image,  each  frame  to  a  unique  Image  file  In 
SSPS  standard  Image  format  with  a  header  file.  The  number 
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of  Images  to  t 
batwttn  frames. 
MT0DSK3 .MT0DSK3A 


ransfer  Is  an  Input 
The  IMAGES . OAT 
,  or  MT0DSK4 . 


as  wall  as 

can  be 


the  Increment 
created  by 


7.0  IMAGES. OAT  TO  SUBIMAGE  DISK  FORMAT  CMAXD I SK1MDSKTF 1L2 


This  program  performs  the  same  function  as  MDSKTOF1L  but  in 
addition  reads  the  D I SKSAVA : CAVA] I R I GS . DAT  file  and  places 
the  IRIG  time  In  the  NATO  header  two  for  each  Image  header 
file.  The  IRIGS.DAT  file  Is  created  by  MT0DSK3A 
automatically,  however,  If  the  IRIG  times  are  not  available 
the  IRIGS.DAT  file  can  also  be  generated  by  'other*  means. 


8.0  AVA  FRAME  BUFFER  UTILITIES 


8.1  AVA  FIELDS  TO  GRINNELL.  CAVA1AVAF IELOS 


AVAFIELOS  displays  the  current  field  desired  residing  In  the 
AVA  frame  buffer  on  the  GRINNELL.  The  operator  Input  Is  the 
field  number  0,1,2,  or  3.  The  operator  Is  most  cases  will 
'freeze*  the  video  before  transferlng  the  field  image  by 
using  the  STOP  control  on  the  ground  unit.  The  fields  are 
loaded  by  the  hardware  In  sequence  first  field  0  then  1,  2 
and  3  and  the  the  process  Is  repeated  as  long  as  Input  data 
continues. 

CAVA] AVAGR0UP8  reads  the  current  AVA  fields  0  and  1  and  puts 
them  on  the  GRINNELL  updated  field  at  a  time  continuously. 

CAVA] AVAGR0UP9  Is  the  same  program  as  AVAGR0UP8  except  the 
block  sizes  are  as  large  as  possible  for  AVA  frame  buffer 
reads . 


8.2  Writing  To  AVA  Field  Memory.  CAVA] AVAFWRITE 


AVAFWRITE  allows  the  user  to  write  to  a  specific  field 
memory  area  In  the  AVA  frame  buffer.  The  data  written  Is  an 
Input  to  the  program  therefore  256  values  can  be  designated. 
The  same  value  Is  written  over  the  entire  specified  field 
memory  area. 
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9.0  INPUT/OUTPUT  TIMING 


9.1  Writing  A  Ramp  Pattern  To  AVA  Memory  CAVA3RAMPMAX 


RAMPMAX  wrttes  a  doubla  ramp  grayscale  to  tha  AVA  mamory  In 
all  four  fields.  This  routlna  damonstratas  tha  write  timing 
to  tha  AVA  mamory  from  tha  VAX  11/780.  The  frame  buffer 
needs  to  be  stopped  to  allow  only  tha  computer  to  write  Into 
AVA  field  memory. 


9.2  Reading  AVA  Fields  CAVA1 RAMPMAX2 


RAMPMAX2  reads  frame  1  of  tha  AVA  MEMORY  or  fields  0  and  1. 
This  routine  demonstrates  the  read  timing  from  the  ava 
mamory  to  the  VAX  11/780. 


9.3  HBR  -  3000  Data  Transfer  Timing.  IMAXDISK3MT0DSKT 


MTO0SKT  will  time  AVA  reads  with  a  variable  write  delay,  for 
simulation  of  the  disk  write  time,  for  N  fields.  The 
HBR-3000  speed  for  reasonable  data  ratas  must  be  at  3  3/4 
Ips  or  1  7/8  (ps. 


10.0  AVA  FRAME  BUFFER  MEMORY  DIAGNOSTICS 


1 . 

FAVAMEMT 

-  4 

pattern 

test 

on  video 

memory 

2. 

FAVAMENT2 

-  4 

pattern 

test 

on  video 

memory  * 

3. 

AVAMEMT 

- 

user  entered 

pattern 

test  ' 

4. 

AVAMEMT2 

- 

user  entered 

pattern 

test  • 

5. 

AAVAMEMT 

-  4 

pattern 

test 

on  ALL  AVA  memory 

Specific  error  printouts 


1 i .0  UTILITIES  FOR  AUXILIARY  DATA  TRANSFER 


11.1  Reading  The  16  Auxiliary  Channels  (First  Set  Only) 


CAVAIAUX  will  display  the  channel  number  and  the  voltage 
Input  on  each  of  the  16  auxiliary  Input  channels.  The 
display  will  be  up  dated  by  direct  cursor  addressing  of  the 
screen  using  the  channel  address  In  the  auxiliary  word  and 
no  scrolling  will  occur.  The  Input  channels  are  sampled  at 
the  (  video  horizontal  sync  rate)/16  and  can  range  from  -10. 
to  *10.  volts.  This  program  reads  only  the  first  16  words 
from  the  auxiliary  memory  area  and  therefore  will  not 
reflect  the  actual  signal  frequency  response  recorded  or 
being  sampled  In  real  time. 

CAVAIAUX2  will  display  the  16  auxiliary  channels  as  does  AUX 
except  the  screen  will  scroll  and  reflect  the  staggering 
positions  of  the  data  as  actually  stored  In  the  auxiliary 
memory.  The  channel  addresses  are  not  used  for  display  of 
the  data  and  the  format  Is  In  hexldeclmal  only.  This 
routine  like  AUX  reads  only  the  first  16  words  from  the 
auxiliary  memory  area. 


11.2  Plotting  The  16  Auxiliary  Channels 


CAVA1AUXPL0T  will  plot  all  sixteen  samples  of  the  requested 
auxiliary  channel.  The  scale  Is  +10.  to  -10.  volts 
vertically  with  the  samples  plotted  horizontally  In  sequence 
repeatedly.  The  data  In  the  AVA  frame  buffer  Is  read  before 
each  plot  Is  generated.  The  plot  Instructions  use  VT-52 
escape  sequences  and  therefore  require  a  compatible 
terminal.  Prior  to  execution  of  this  routine  It  is 
necessary  to  ensure  that  the  terminal  Is  In  VT52  mode  by 
executing  the  following  OCL  command.  SET  TERM/VT52.  This 
process  should  also  be  followed  In  AUXPLOTA. 

IAVA1AUXPL0TA  will  plot  all  sixteen  samples  of  all  channels 
five  times  across  the  plot.  This  Is  useful  In  testing 
auxiliary  channel  frequency  response  by  connecting  all 
channels  to  the  same  varying  signal  and  adjusting  the 
amplitude  and  rate  of  the  variation. 
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11.3  Util Itles  For  Reading  Tha  IRIS  Tim* 


IAVA3AUXIRIG  will  display  the  IRIS  tine  placed  In  the  AVA 
frame  buffer.  This  IRIG  time  Is  updated  either  In  real  time 
or  by  HBR-3000  playback.  The  display  places  the  IRIG  on  the 
screen  without  scrolling. 

CAVA1AUXIR1G2  will  scroll  the  IRIG  time  on  the  screen  and  Is 
used  for  checks  of  video  sync  stability  and  IRIG  read 
timing. 


12.0  UTILITIES  FOR  HBR-3000  TAPE  CONTROL  AND  SEARCH 


12.1  Reading  IRIG  Time  From  The  Tape  Search  Unit 


CAVA.TAPE0RIVE1 IRIGREAD  will  freeze  the  IRIG  output  register 
at  each  read  and  transfer  the  IRIG  to  the  display  and  repeat 
cont I nuously . 


12.2  HBR-3000  Drive  Control 

CAVA.TAPEORIVEJCOMMANO  lets  the  knowledgeable  user  remotely 
control  the  HBR-3000.  The  search  unit  REMOTE/LOCAL  switch 
must  be  in  REMOTE  otherwise  this  program  has  no  effect.  It 
Is  suggested  that  the  user  be  familiar  with  the  functions  In 
the  Datum  Search  Unit  Manual  before  running  this  program. 

Some  typical  commands  are  shown  below: 

NOTE:  all  commands  are  In  octal  for  decoding  the  bit  functions 


157000 

150001 

156400 

157476 

157201 

157221 

157061 

157222 

157202 

157206 


STOP 

TRANSLATE  IRIG  A  WITH  ZERO  FRAME  BYPASS 
UPDATE  TIME.  RESET  RECORD  ENABLE, 

RESET  INTERRUPT 
SET  THE  FILTERS  TO  120  IPS 
DRIVE  FORWARD  AT  120  IPS 
DRIVE  FORWARD  AT  240  IPS  (FAST  FOWARD) 
DRIVE  FORWARD  AT  3  3/4  IPS  (32  TO  l) 
DRIVE  REVERSE  AT  240  IPS  (FAST  REVERSE) 
DRIVE  REVERSE  AT  120  IPS 
SINGLE  CYCLE  SEARCH  MODE  AT  120  IPS 
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12.3  IRIS  List  Generation  For  Image  Trenfers 


CAVA. TAPE  DRIVE  IRE VIEW  H  for  generating  an  IRIS  lift  file  of 
the  single  Images  the  user  wants  on  disk  In  disk  (mage 
format.  The  user  would  start  REVIEW  and  then  play  the  tape 
on  the  HBR-3000  at  120  <ps  (normal  speed).  When  a  desired 
image  appears  the  user  presses  a  return  at  the  terminal. 
When  a  return  Is  pressed  the  current  IR1G  time  Is  read  from 
the  AVA  frame  buffer  and  Is  written  to  disk.  This  Is 
repeated  as  many  times  as  needed.  After  reviewing  the 
portion  of  tape  required  by  the  user  typically  several  IRIG 
times  would  be  In  the  REVIEW. IRG  file,  and  the  user  would 
then  type  In  Z  to  terminate  program  execution. 


12.4  Transferlng  IRIS  List  Images  To  Disk 


CAVA.TAPEDRIVE3RTOOISK  will  use  the  IRIG  list  file 
REVIEW. IRG  to  scan  the  tape  on  the  HBR-3000  and  transfer  the 
Images  to  disk  In  disk  Image  format.  The  user  must  enter 
the  beginning  file  name  for  the  first  Image  and  there  after 
the  file  name  sequence  number  will  be  automat  leal ly 
Incremented.  Note  that  there  must  be  enough  contiguous  disk 
space  available  In  the  default  file  directory  else  the 
program  will  abort. 


12.5  Utilities  For  The  Tape  Search  Unit 


1.  CAVA.TAPEDRIVE3ST0START  allows  the  user  to  enter  an 
IRIG  time  to  search  for.  The  tape  will  be 
transfered  to  the  position  where  the  IRIG  time 
occurs . 

2.  IAVA. TAPEDRI VE 3 STATUSR  displays  the  current  status 
of  the  HBR-3000  repeatedly. 

3.  IAVA.TAPEDRIVE3 IOTEST  allows  the  user  to  perform  a 
fully  functional  test  on  the  DR11-C  Interface  tied 
to  the  Tape  Search  Unit.  The  maintenance  cable  or 
equivalent  must  be  connected  from  the  output  port 
to  the  Input  port.  This  program  tests  all  data 
bits  on  the  DR11-C  and  the  *A'  Interrupt  hardware. 


J 
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APPENDIX  A 


CAVA . DI SKI AVAT0DSK2 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

THIS  PROGRAM  WRITES  THE  CURRENT  AVA  FRAME  SUFFER  IMAGE 
FIELDS  0  AND  1  ON  TO  DISK  IN  SUBIMAGE  DATA  BASE  FORMAT. 

THE  IMAGE  NAME  XXX  IS  REQUESTED.  THIS  NAME  IS  USED  FOR  THE 
XXX. IMG  FILE  AND  THE  XXX. HDR  FILE. 

THIS  FILE  CAN  THEN  BE  ACCESSED  BV  ANV  OF  THE  SUBIMAGE  DATA  BASE 
SOFTWARE  SET. 


THIS  PROGRAM  IS  DIFFERENT  FROM  AVA1TODSK . FOR  IN  THAT 

AVA1TODSK .FOR  WRITES  TO  DISK  IN  A  COMPLETELY  DIFFERENT  FORMAT  AND  ONLY 
TO  D I SKSIMAGES : CAVA I  IMAGES . DAT  WHEREAS  THIS  PROGRAM  WRITES  IT  OUT  IN 
THE  SUBIMAGE  DATA  BASE  FORMAT  AND  WILL  USE  THE  NAME  INPUT  BY  THE  USER. 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
PARAMETER  IEVF  -  4 

INCLUDE  'DISKSUSERDISK: CSUB I  MAGE  1  DSP . CMN/NOL 1ST ’ 

INCLUDE  'DISKSUSERDISK: CSUB IMAGE  1 1 OTBL . CMN/NOL I  ST ' 

INCLUDE  'DISKSUSERDISK: CSUB IMAGE  1 GRMAP . CMN/ NOL I  ST ' 

INCLUDE  'DISKSUSERDISK: CSUB IMAGE JIMGT8L . CMN/NOL 1ST ’ 

INCLUDE  'DISKSUSERDISK: CSUB IMAGE] IMGNAME. CMN/NOL I  ST' 

INCLUDE  'DISKSUSERDISK: C SUB  IMAGE  3 SUBCOM . CMN/NOL I  ST ' 

INTEGER*4  IMGADR , SYSSASSIGN . IMGADR2 , SYSSGETMSG 
INTEGER-4  LIBSFREEVM.L IBSGETVM, SYSSDASSGN 
INTEGER  AVACHAN 
DIMENSION  AR(65,65),BR<65,65) 

CHARACTER-60  TITLE. MSGBUF 

C  TITLE* ‘WRITE  TO  DISK  TIME  FOR  ONE  512X480  IMAGE’ 

DSPSCF-1  .0 
IMGMAPC( 1  )*1 
IMGMAPC ( 2  )  •  1 

I -SYSSASS IGN(  'TT'  , IVTC, .  ) 

IF< .NOT. I )TYPE  -, 'ERROR  IN  TT  CHANNELl  ASSIGN' 

I "SYSSASS IGN(  'GRAB' , GRCHAN , ,  ) 

IF(  .NOT. I  )THEN 

TYPE  *,'  ERROR  IN  GRINNELL  CHANNEL  ASSIGN’ 


onooononono  ooo»-  o  noooooouioo 


CAVA. DISK  I AVA TODS K 2 


STOP 
END  I F 

C  CODE  TO  READ  AVA  IMAGE  INTO  VIRTUAL  MEMORV 

ISTATUS-SYSSASSIGN! 'AVA*1 .AVACHAN, . > 

IF< .NOT. ISTATUS)TYPE  ERROR  IN  AVA  GRCHANNEL  ASSIGN1 

FNAM  •  'BARDOTS. IMG1 
READ(5,5678  >FNAM 
S78  FORMAT ( A80 ) 

TYPE  * , FNAM 

CALL  READ SUB! ILEN.IWO. IMGADR )  1  READ  IMAGE  FROM  DISK 

IMGMAPC!3)-ILEN 

IMGMAPC( 4 ) -IWD 

IMGMAPC ! 3  )-5 1 2 

IMGMAPC( 4 )-512 

CALL  DSP  IMG <  XVALI IMGADR ) )  I  PUT  IMAGE  ON  THE  GRINNELL 

NCOL-512 

NROW-480 

ILEN-NROW 

IWO-NCOL 

IMGMAPC(3)-ILEN  1  LENGTH  OF  IMAGE 
IMGMAPC! 4  )» IWD  1W1DTH  OF  IMAGE 
I -IWD 

NBYT-I 1  +  1  )* ILEN*2 
I -L IBSGETVM! NBYT, IMGADR) 

IF ( . NOT . I  )TYPE  ERROR  IN  VIRTUAL  MEMORY  ASSIGNMENT  l1 

CALL  AVAREADIXVAL! IMGADR ) .AVACHAN ) 

HEAD! 8 )- 1  l1  1  ONE  CHARACTER  PER  CHANNEL 

I  •  LIBSGETVMI 10000, HDR2A0R) 

I F I . NOT .  I)  CALL  ERRSTOPI I . 1  ERROR  GETTING  HDR2  VM 1 , 1 AVATODSK 1  > 

CALL  ADDHDR2I XVAL I H0R2ADR ) ) 

HDR2LEN-576 

CURRENTNUMFL-0 

CALL  OSPIMGIXVALI IMGADR)  )  l  PUT  IMAGE  ON  THE  GRINNELL 

TYPE  *. 1 IWD-1 . IWD. 1  ILEN-'.ILEN 
FNAM- ■SIMS00001. IMG1 

TYPE  "ENTER  OUTPUT  FILE  NAME.  I  1 23456789 . IMG > ' 

FNAM- 1  1 
READ! 5,123 1FNAM 
23  FORMAT! A) 

CALL  TIMRB 

IWD-512 

ILEN-512 

CALL  TOOISKI XVALI IMGADR ) , IWD , ILEN .AVACHAN ) 

CALL  TIMRE 

CALL  HEADER! TITLE ) 

I -IWD 

NBYT-I I  +  I  )*ILEN*2 
I -LIBSGETVMI NBYT. IMGADR2) 

IF! .NOT. I  )TYPE  ERROR  IN  VIRTUAL  MEMORY  ASSIGN  FOR  OUTPUT  IMAGE1 
I-L IBSGETVMI NBYT , IMGA0R3 ) 

IF! .NOT. I  ITYPE  ERROR  IN  VIRTUAL  MENORY  ASSIGN  FOR  OUTPUT  IMAGE1 
FNAM! 23:31 )-'A00030001 1 

CALL  REA0SU8! ILEN. IWD, IMGADR3)  i  READ  IMAGE  FROM  DISK 
IMGMAPC! 3 )-ILEN 
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IMGMAPC! 4 )«IWD 

TYPE  ' 1WD-’ , IWD, '  ILEN* ' ,  ILEN 
STOP  '512X480  IMAGE  WRITTEN  TO  DISK 
1 

END 

SUBROUTINE  TOOISK! IMAGE . IWO . ILEN, AVACNAN > 

EXTERNAL  IOSREADVBLK 

INCLUDE  ' DISKSUSERDISK : C SUB  IMAGE  I IMGTBL . CMN/NOL 1ST ' 
INCLUDE  'DISKSUSERDISK: ISUBIMAGEIIMGNAME. CMN/NOL 1ST’ 
INCLUDE  'DISKSUSERDISK: I SUB  IMAGE  I SUBCOM. CMN/NOL 1ST ’ 
INCLUDE  'DISKSUSERDISK: C SUB  IMAGE  I AUTO  I  MG . CMN/NOL 1ST ' 
INTEGER*^  US.TS.UM.TM 
INTEGER*2  UH , TH . UO , TD , HD 
INTEG£R*2  MS , HMS , TMS . IOSB! 4 ) 

INTEGER*2  IMAGE ( NCOL  + 1 , NROW ),HDR2LEN,D(8),X,Y 
INTEGER*4  AUTOWRTSB 
INTEGER  A VAC  HAN , S  Y  S  SO I OW 
CHARACTER* 10800  HDR2ADR 

CHARACTER'S  MONTH , DAY , YEAR*2 ,WD*8 , LEN*8 ,TIMEA*8 
CHARACTER'S  IF IRST5 , ILAST4*4 , TNAME*9 
HDR2LEN-HDR2LEN 
C  TYPE  * , 'H0R2LEN' , HDR2LEN 

CALL  CNVRT ( XVAL!  HDR2ADR ) . HDR2LEN , HDR2AOR  ) 

C  TYPE  * , HEAD 

CALL  I  DATE ( I MONTH , IDAY , I  YEAR  > 

ENCODE  <  3 , Z80 , MONTH ) IMONTH 
ENCODE ( 3 , 200, DAY  > IDAY 
200  FORMAT! 13 > 

ENCODE! 2, 100, YEAR  ) I YEAR 
HEAD! 3  )» ' OLDFAAD  ' 

HEAD! 1  )■ ' USAMICOM  * 

HEAD! 2  1-YEAR//MONTH//DAY 
100  FORMAT! 12) 

ENCODE! 8,200, WD1IW0 
HEAD! 11 )!6:8)-VD! 1:3) 

ENCODE ( 8 , 200, LEN ) ILEN 
HEAD! 12>(6:8)»LEN< 1:3) 

C  TYPE  * , HEAD 

IBRACKET-INDEXIFNAM, '] '  ) 

IPERIOD-INDEX! FNAM, ' . ' > 

TNAME-FNAM! I  PERIOD-9 : IPER IOO-l  ) 

I BRACKET" I BRACKET 

IF! IPERIOD-10.LE. I  BRACKET )THEN 

IZERO«ABS! IPERIOO-10) 

TNAME ! 1 : IZERO )■ '  ' 

ENDIF 

ILAST4-TNAME!6:9> 

IF IRST5»TNAME! 1:5) 

HDR2ADR! 1 : 8 )■  'FN*X0000' 

HDR2ADR! 11:18  )• '0000. IMG ' 

HDR2A0R! 4:8>«IFIRST5 
HDR2A0R! 11:14)«IIAST4 
HDR2ADR151 : 58 >• ' SLREDALA ‘ 

HDR2ADR! 41 : 48 )« ' LT000000' 
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CAVA. DISK] AVAT0DSK2 


HDR2A0R(  31:38)-' RT000000 ' 

HDR2ADR( 21:28)-' DT000000' 

C  H0R2A0R( 351 : 358) -MIL  I  SECONDS 

CALL  TIME <  TIMEA ) 

HDR2ADR<43:44)-TIMEA< 1:2) 

HDR2ADR( 45 : 46  )*TIMEA( 4 : 5 ) 

H0R2ADR(47:48)-TIMEA(7:8> 

LETS  READ  THE  RANCE  IRIG  TIME  FROM  THE  AVA  FRAME  BUFFER 

AVAACR- ' 435 ' 0 
X- ' 1000 -0 
Y-2 

ISTATUS-SYSSQIOWI  XVAL( 1 ) , XVAL (AVAC HAN ) ,  XVAL ( XLOCC IOSREADVBLK )  ) , 
1I0SB,  , , 

1 0, XVAL < 8 ), XVAL < X ), XVAL < Yl.XVALI AVACSR), XVAL (AVAACR >> 

ID , XVAL  < 8 ) , XVAL ( X ) . XVAL ( Y ) . XVAL< 1 ) . XVAL ( AVAACR ) ) 

I F  < AVACSR. EQ.0)AVACSR-1 

DO  1-2,4 

D< I )«NOT(D<  I  )  ) 

ENDOO 

HMS- IAND( ISHFT<  D( 2 ) , -8 ) , 'F'X) 

TMS- 1 AND ( I SHFT <  D( 2 ) , -4 ) , 'F'X) 

MS- IAND( D( 2  ) , ‘F'X) 

US-IANDI ISHFT( D( 2 ) , -12 ) , 'F'X) 

TS- IAND<  D<  3 ) , 7  > 

UM- 1 AND< ISHFT<  D<  3  > ,-3  > , *F'X> 

TM«IANO< ISHFT(D<3>,-7),7) 

UH-IAND< ISHFT(D<3),-10), 'F'X) 

TH-IAND( ISHFT(D<3),-14>,3) 

UO* IANO( 0(4), 'F'X) 

TD-IANDI ISHFT(D(4),-4). 'F'X) 

HO- IANO< I SHFT (0(4), -8), *F 'X) 

HDR2ADR< 33:33 ) -CHARI TH- 48 ) 

HDR2ADRI 34 : 34  >«CHAR<  UH*48 ) 

HDR2ADR<  35 : 35 )-CHAR( TM  +  48  ) 

HDR2ADR( 36 : 36  )-CHAR( UM+48 ) 

HDR2ADR<37:37) -CHARI TS+48 ) 

HDR2ADRI 38:38  )-CHAR( US  +  48  ) 

HDR2ADR( 351:358  ) -MI  LI  SECONDS 
HDR2ADR<  279 : 279 )-CHAR( HMS  +  48 > 

HDR2ADRI 280 : 280 ) -CHAR ( TMS  +  48  > 

HDR2ADRI 281 :281  )-CHAR(MS  -48) 

WRITE <  6 , 1 3  )( D< I ) , 1-2 , 4 ) , HO , TD, UO ,TH,UH,TM, UM, TS, US , 

I HMS, TMS. MS 

C13  FORMAT ( 1X,3(1X,06),5X,3Z1,':',1X,2Z1,':',Z1,Z1,':',2Z1, 
l ' : ' , 3Z1  ) 

HDR2A0R( 33:38 )-HDR2ADR<  43:48) 

HDR2ADRI 23 : 28  )-H0R2ADR<  43:48) 

HDR2A0R(23:28)-HEAD<2)(  1 :  2  )//HEAD(  2  )(  4  : 5  )//HEAD(  2  )(  7  : 8  ) 

CALL  UNCNVRTI XVAL ( HDR2ADR ) , HDR2LEN , HDR2ADR ) 

TYPE*, ' H0R2 ' , HDR2ADR( 1 : H0R2LEN ) 

TYPE*,'  WRITING  ' , FNAMI 1:40) 


CAVA . 0  J  SKI AVAT0DSK2 


IHD2-HDR2LEN  IAUTOWRTSB  ROUTINE  NEEDS  THIS  DEFINED  THROUGH  AUTOIMG . CMN 
I  STATU S*AUTOWRTSB( 1.1. ILEN , IWD . IMAGE , XVAL ( HDR2ADR  )  ) 

IF! .NOT. ISTATUS (TYPE  -.'ERROR  IN  AUTOWRTSB  IMAGE  TO  DISK’ 

RETURN 

END 

SUBROUTINE  BUFFCNVT <  NUMB , B INPUT .OUT , IOL1NE  ) 

INCLUDE  ' D I SKSUSERD ISK : C SUB  I MAGE  3 IMGTBL . CMN/NOL I  ST ’ 

BVTE  BINPUT! 1 ),BVTE(2> 

INTEGERS  OUT( NCOL+1 ,NROW) .BYTES, SLU 
EQUIVALENCE (BYTES, BYTE  ) 

DATA  SLU/ ' 3401 1 '0/ 

1-0 

DO  100  IX-1 , NUMB 
I-I  +  l 

I F ( I . EQ . 51 2  1THEN 
BVTE ( 1 )-BINPUT( IX ) 

OUT! I , IOLINE l-BYTES 

C  UR1TE  <  6 , 34 )  I , IOL INE ,OUT( I , IOL INE  ) 

OUT < 1+1 , IOLINE  >«SLU 

C  WRITE! 6,34)  I *1 , IOL INE ,OUTI 1+1 , IOL INE > 

1-0 

IOL INE- IOL INE  +  2 
GO  TO  100 
ENDIF 

BYTE! 1  l-BINPUT! IX) 

OUT! I , IOL I NE  )- IAND! NOT ! BYTES ) ■ ’377’0> 

C  WRITE! 6,34)  I , IOL I NE . OUT! I , IOL I NE ) 

34  FORMAT! IX, 13. IX, 13, 2X, 06) 

100  CONTINUE 

RETURN 
END 

SUBROUTINE  AVAREAD! IMAGE .AVACHAN  ) 

EXTERNAL  IOSREADVBLK 

INCLUDE  'DISKSUSERDISK: C SUB  I MAGE  3 IMGTBL .CMN/NOL 1ST ' 

INTEGER-2  IMAGE! NCOL+1 , NROW ) 

INTEGER  AVACHAN, SYS SQ I OW.AV AC SR, A VAACR.X.Y 
INTEGER-2  INPUT! 15360 ),I0SB!4) 

BYTE  BINPUT! 30720) 

EQUIVALENCE! 8  INPUT, INPUT) 

AVACSR-0 
AVAACR- ' 415 ' 0 
V-6 
X-0 

ICOUNT-0 

IADDR-1 

IOLINE-1 

1  I STATUS-SYSSQ I 0W( XVAL! 1 >, XVAL ! AVACHAN ) ,XVAL( XLOC! IOSREADVBLK  > ) , 

1 IOSB , , , 

1 1 NPUT , XVAL < 30720 ) , XVAL <  X ) , XVAL ! Y ) , XVAL I AVACSR  > , XVAL ! AVAACR  )  ) 

I F ( AVACSR . EQ . 0  JAVACSR- 1 

IF! .NOT. ISTATUS. OR. .NOT. IOSB! 1 ) )G0  TO  57 

C  WRITE  ! 6,54  )BINPUT 

54  FORMAT! IX. 16! IX, 03)) 
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NUMB-30720 

CALL  BUFFCNVT< NUMB , B INPUT , IMAGE . IOL INE ) 

Y-Y+30 

ICOUNT-ICOUNT+1 
I F ( IC0UNT.EQ.4ITHEN 

I STATUS-S YSSQIOWt  XVALt 1 > , XVAL ( AVACHAN ) , XVAL( XLOC( IOSREAOVBL K ) ) , 
1IOSB,  ,  . 

1 1 NPUT , XVAL (8192), XVAL <  X ) . XVAL ( Y ) . XVAL  <  AVACSR ) . XVAL ( AVAACR ) > 
NUMB* 8192 

CALL  BUFFCNVTi NUMB , B I NPUT , IMAGE , IOL INE  ) 

IOLINE'2 
Y“ 1 206 1 0 
X'0 
END  I F 

I F ( 1COUNT. EQ . 8 (THEN 
ICOUNT-0 

I  STATUS'S YSSOIOVI XVAL < l >, XVAL < AVACHAN ), XVAL ( XLOC < IOSREADVBLK ) ) , 
1IOSB, , , 

1 1 NP UT . XVAL (8192). XVAL  <  X  ) . XVAL ( Y ) , XVAL <  AVACSR  ) , XVAL ( AVAAC R ) > 
NUMB  *  8 1 9  2 

CALL  BUFFCNVTI  NUMB , B I NPUT , IMAGE  .  IOL INE  ) 

RETURN 
END  I F 
GO  TO  1 
57  CONTINUE 

I  STATUS 'SYS SGETMSG  ( XVAL ( I  STATUS ) .  MSGLEN,  MSGBUF , , ) 

TYPE  ISTATUS-' , I  STATUS, '  IOSB( 1 )■ 1 , IOSB( 1  ) 

TYPE  ISTATUS- ISTATUS. •  IOSB< 1  , IOSB( 1 > 

IF ( .NOT. ISTATUS)  TYPE  ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  *,,QIO  PARAMETER  STATUS MSGBUF 
MSGBUF-1  1 

I  STATUS'S VS SGETMSG  ( XVAL ( IOSB( 1  ) ) .  MSGLEN,  MSGBUF,,) 

IF (  .NOT. ISTATUS  )  TYPE  *,'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'I/0  STATUS: 1 .MSGBUF 
STOP 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

THIS  PROGRAM  READS  THE  CURRENT  AVA  FRAME  FIELDS  1,2  AND  WRITES 
THEM  TO  DISKSIMAGES : CAVA] IMAGES . DAT  AS  THEY  ARE  PRESENTED  BY  PLAYING 
THE  HBR-3000  BACK  AT  32X1. 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

EXTERNAL  IOSWR ITE VBL K , IOSREAD VBLK , MI TL S 1 
INTEGER*2  BUF ( 200 > , ISETUP ( 14  ) , SLU. IOSB( * > 

INTEGER  SYSSASSIGN,  SYSSQIOW,  CHAN , SYSSQIO , S YSSWAITFR 
INTEGER  SYSSGETMSG.MSGLEN, ISTATUS 
INTEGER*2  X,Y,YA!4),SVSSDASSGN 
INTEGER-2  BYTES 
I NTEGER*2  OUTPUT, INIT< 4  ) 

INTEGER*2  INPUT(65S36) 

C  BYTE  B INPUT! 32768 ) 

BYTE  BINPUTt  131072  ) 

INTEGER  AVACSR.AVAACR , SYSSLKWSET, INLOCK! 2  ) , IOLOCK! 2  ) 

INTEGER*2  I SETUP2! 2 > . ISETUP3! 2 > 

CHARACTER  *80  MSGBUF 
CHARACTER*60  TITLE ,F NAME *60 
CHARACTER-60  NAME 
INTEGER*2  BUFFERL , DEVCODE 
INTEGER  SYSSGETDVI, DV I SF REE BLOCKS 
INTEGER  IFREE 
INTEGER  BUFFERA.ZERO 
COMMON /PRACHAN/ I D I SK 

COMMON/ ITEMLIST/BUFFERL, DEVCODE, BUFFERA.ZERO 
COMMON/AVACHAN/ I TCHAN 
EQUIVALENCE ( 3UF ( 1  l.ISETUP! 1  )) 

EQUIVALENCE! B INPUT, INPUT) 

DATA  YA/6 , ' 206 ‘ 0 , 1 406 ’ 0 , ' 606 ' 0/ 

DATA  DVISFREEBLOCKS/ 1 0000002A ' X/ , ZERO/0/ 

DATA  I  SETUP/ ' 120040'O, ' 140001 '0, 1 12 1000 '0, ' 107777 '0. 1 17777*0, 

1  '24061*0, ' 26002' 0, ' 30000' 0, ' 44000-0, ' 64777 '0, ' l 20000' 0, 

2  ' 60001 '0 , ' 70776 ' 0 , ' S4000 ' 0/ 

DATA  ISETUP2/'64777'0, ' 44000' 0/ 

DATA  ISETUP3/'64776'0, ' 44000' 0/ 

I  -  SYSSASSIGN! 'GRA0' , CHAN, , ) 

IF!. NOT.  DTYPE  ERROR  IN  GRINNELL  CHANNEL  ASSIGN' 
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ISTATUS-SYSSASSIGNI  'AVA0'  ,  ITCHAN,  ,  > 

IF< .NOT. ISTATUS  >TYPE  *,'  ERROR  IN  AVA  CHANNEL  ASSIGN1 
TITLE-1  READ  AVA  SUFFER  ANO  WRITE  TO  DISK  TIME1 
NAME  -  1 0 1 SKSAVA :  1 
BUFFERL-4 

DEVCODE-DVISFREEBLOCKS 
BUFFERA-XLOCI IFREE > 

C  RETURNLA-XLOCf RETURNL > 

ISTATUS-SYSSGETDVI(XVAL<3),.NAME,BUFFERL,,  > 

IF<  .NOT. ISTATUS  >TYP£*. 1  PARAMETER  ERROR  IN  GETDVI 1 
I  STATUS -S VS SWA  I TFR( XVAL  <  3  > > 

TYPE  *, 'BLOCKS  FREE  FOR  IMAGE  STORAGE-  .  IFREE 
MAX  IMAGE S- 1  FREE/513 

TYPE  *, 'MAXIMUM  NUMBER  IMAGES  THAT  CAN  BE  STORED- ' .MAXIMAGES 
C 

C  MAX  I  MAGE  S- 30  ITHIS  IS  FOR  DEGUG  ONLY 

C 

NIMAGES-MAXIMAGES 
7775  I NSZ-N IMAGE  S*480 

F NAME  -  1 0 1 SKSAVA : CAVA] IMAGES . DAT  1 
TYPE  ", 'OPENING' , FNAME 

OPEN( UN  IT-30. NAME -FNAME .TYPE- 'UNKNOWN' , 

1FORM-' UNFORMATTED' . I N I T I AL S I ZE - I NSZ , USEROPE N-MI TL S 1 , 
2RECORDTYPE-' FIXED' , RECORDS IZE -4096 , ERR-777  ) 

GO  TO  776 

777  N IMAGE  S-N IMAGES- 10 

I F ( N I  MAGES . LT . 0 ) STOP  'NIMAGES  LESS  THAN  ZEROI 111  I ' 

GO  TO  7775 

776  TYPE*. 'THE  ACTUAL  NUMBER  OF  IMAGES  TO  BE  WRITTEN- '. NIMAGES 
I STATUS-SYSSASS IGN( ' AVA0 ' .AVACHAN, , ) 

IF< .NOT. ISTATUS ITYPE  *,'  ERROR  IN  AVA  CHANNEL  ASSIGN' 

INLOCKI 1  l-XLOC <  B I NPUT< I  )  ) 

INLOCK(2)"XLOC(BINPUT( 131072)1 
K-S  YSSLKWSETI I NLOCK . I OLOCK ,  ) 

TYPE  *,'  I NLOCK ( 1  )-  ' , INLOCKI 1  ) .  '  INLOCK(Z)-  ',INLOCK(2> 

TYPE  *.'  lOLOCK(l)-  ' . IOLOCKI  1  ) , '  IOlOCK<2>-  ',IOLOCK(2> 

IF ( . NOT. K )TVPE  *,'  UNABLE  TO  LOCK  BUF ’ 

AVAACR* ' 4 1 5 ' 0 

C  K  -  SYSSQIOWf  XVALI 1 ) .XVALI  CHAN  > ,XVAL( XLOC< IOSWRITEVBLK ) ) , IOSB, , 

C  1 BUF  <  1  ) , XVAL  <  28  ) , . . ,  ) 

IEVFO-4 

IEVFOl-5 

IMAGEN-I 

I  BLOCK* 1 

AVACSR-0 

CALL  TIMRB 

X-0 

10  CALL  FIELOC IF IELD .AVACSR I 

I F ( IF IELD . NE ,0)GO  TO  10 
ICURR- 1  FIELD 

C  TYPE  *, ' ICURR-' .ICURR 

11  CALL  FIELD! IF IELD , AVACSR) 

I F  <  IFIELD.EQ. ICURR)  GO  TO  11 

ISTOREF IELD- ICURR  1  CURRENT  FIELD  TO  PUT  ON  DISK 
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ICURR-IFIELD  ICURRENT  FIELD  BE  LOADED  INTO  THE  AVA 

TYPE  ' ICURR*' , ICURR , ' I  STORE F I  ELD- '  , I  STORE F I  ELD 
GO  TO  11 
ICOUNT-0 

Y»YA( ISTOREF IELD+1 ) 

I  STATUS*SYSSVA ITFR!  XVAL < IEVFOl > ) 

ISTATUS-SYSSQIOU! XVAL! 1 ) , XVAL! I TCHAN > , XVAL ( XLOC ( IOSREADVBLK  > ) . 

1 IOSB, . , 

1  INPUT, XVAL (  32768  > ,XVAL<  X ) ,XVAL<  Y ). XVAL ( AVACSR  ), XVAL ( AVAACR  )  > 

1 F ( AVACSR . EQ .0 )  AVACSR*1 

I  STATUS'S YSSO 1 0( XVAL ( IEVFOl ) ,XVAL{ I D I SK > . XVAL <  XLOC! IOSVRITEVBLK  >  > , 

1 IOSB , , , 

IB  INPUT! 1  )  .XVAL !  32  768  ) .XVAL < I  BLOCK),,,  ) 

IBLOCK=IBLOCK+64 
Y-Y  +  32 

I  STATUS'S YSSQIOV!  XVAL ( 1 ),XVAL( I TCHAN >, XVAL ( XLOCf IOSREADVBLK) ), 

1IOSB. , . 

1 8  INPUT! 32679 ). XVAL <  32768 >. XVAL ! X ), XVAL < Y), XVAL (AVACSR  ), XVAL (AVAACR >> 
ISTATUS-SYSSOIO! XVAL! IEVFO ) .XVAL! IDISK ) .XVAL! XLOC! IOSVRITEVBLK) > , 

1 IOSB , , . 

IB  INPUT! 32679 ), XVAL! 32768) .XVAL! I  BLOCK  ) , , ,  ) 

I  BLOCK* I  BLOCK ♦64 
Y* Y  +  32 

I STA7US*SYS$QI OW( XVAL  < 1 J.XVAL! ITCHAN >, XVAL ( XLOC ( IOSREADVBLK) >, 

1 IOSB, , . 

1 B INPUT!  65537  ). XVAL! 32768  ), XVAL! X ), XVAL! Y>, XVAL (AVACSR ) ,XVAL( AVAACR >  > 
ISTATUS*SYSSQIO( XVAL! IEVFO) .XVAL ( I D I SK  ) , XVAL ( XLOC ( IOSVRITEVBLK) > , 
1IOSB, , , 

1BINPUT (65537), XVAL ( 32768 ) , XVAL ! IBLOCK), ,, > 

I  BLOCK* I  BLOCK +  6 4 
Y*V+32 

I STATUS*SYSSQ IOV! XVAL! 1 I.XVAL! I TCHAN ), XVAL ( XLOC ( IOSREADVBLK) ) , 

1IOSB, , , 

1 B I NP  UT( 98305 ) , XVAL ( 24576 ) , XVAL ( X ) , XVAL ( Y ) , XVAL ( AVACSR ) , XVAL ( AVAACR ) ) 
I STATUS-SYSSQ I O! XVAL ( IEVFO), XVAL! I D I SK ) . XVAL ( XLOC ( IOSVRITEVBLK) > , 
1I0SB, , . 

18  INPUT! 98305), XVAL (24576), XVAL! IBLOCK), , ,  ) 

IBLOCK-IBLOCK+48 

IF ( AVACSR. EQ.0)AVACSR-1 

VRITE  ( 4 , 54  )B I NPUT 
4  FORMAT! IX. 16! IX, 03) ) 

NUMB-32768 

CALL  BUFFCNVT(NUMB,8INPUT,0UT) 

I  STATUS  *  SYSSQIO!  XVAL <  1 J.XVAL (CHAN), 

1XVAL! XLOC! IOSVRITEVBLK ) ) , IOSB, . , 

1  BOUT ( 1 ), XVAL (65534  >,,..) 

ISTATUS  -  SYSSQIO! XVAL (1>,XVAL(CHAN), 
l XVAL! XLOC!  IOSVRITEVBLK  > ) , IOSB, , , 

1  BOUT ( 65535 I.XVAL! 130) . , , ,  ) 

ICOUNT-ICOUNT+1 

IF!  ICOUNT.NE .4 )G0  TO  1 

CALL  FIELD!  IFIELD, AVACSR) 

IF!  IFIELD.EQ. ICURR) GO  TO  11 
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IF( IF IELD.NE . IAN0< ICURR*1 , 3  > )THEN 

TYPE  * , 1  FATAL  ERROR  .... **** _ 1/0  TO  SLOW 

TYPE  *, 'BLOCK  NUMBER* ', IBLOCK 

TYPE  »,  '  ICURR-' . ICURR. '  IF  IELD- 1 . IF IELD 

CALL  TIMRE 

CALL  HEADER! TITLE ) 

I STATUS-SYSSDASSGN! XVAL  < IOISK  >  > 

CLOSE! UNIT-30) 

STOP 

ENDIF 

ICURR- [AND! ICURRfl .3 ) 

IF! I COUNT . EQ . 0 )THE  N 
I  COUNT- 1 
ISTOREFIELD-1 
GO  TO  I 
ENDIF 

TYPE*, IMAGEN/2.NIMAGES 
IF! IMAGE N. GE .N IMAGE S )THEN 

TYPE  * , IMAGEN ,  'IMAGES  WRITTEN  TO  DISK  IN  IMAGES . DAT ' 

CALL  TIMRE 

CALL  HEADER! TITLE ) 

I  STATUS -SYS IDAS SGN! XVAL (  IDISK ) ) 

CLOSE! UNIT-30) 

STOP  '  I/O  COMPLETE . 1 

ENDIF 

I  MAGE  N« IMAGEN+ 1 
GO  TO  10 
7  CONTINUE 

I  STATUS -SYSSGETMSG  1 XVAL I  I  STATUS  ) .  MSGLEN,  MSGBUF  ,  ,  ) 

TYPE  *,'  ISTATUS-' . ISTATUS, '  IOSB! 1 )- ' , IOSB! I> 

TYPE  *.'  ISTATUS-'  .ISTATUS,  ‘  IOSB! Ii- ',  IOSB! 1  ) 

IF! .NOT. ISTATUS >  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG ‘ 

TYPE  *,‘010  PARAMETER  STATUS :', MSG8UF 
MSGBUF-'  ' 

I STATUS-S YSSGETMSG  ( XVAL ! IOSB! I ) ) ,  MSGLEN,  MSGBUF,,) 

IF! .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'I/0  STATUS: ' .MSGBUF 
STOP 

II  FORMAT! IX,  '  INPUT-' ,06,2X, ' IOSB-’ , 06 , 2X , 06 , 2X , 06 , 2X , 06 ) 

K  -  SYSS<JI0W<XVAL<  1  >  .XVAL  (CHAN  >  .XVAL  <  XLOC<  I0SVRITEVBLK  > ),  IOSB, 
1 1 SETUP3 , XVAL ( 4  ),.,,) 

END 

SUBROUTINE  BUFF CNVT < NUMB , B I NPUT , OUT  ) 

BYTE  BINPUT!  1  )  .BYTE! 2  > 

INTEGER*2  OUT! 5 1 3 . 1  ) , BYTES , SLU 
EQUIVALENCE! BYTES. BYTE ) 

DATA  SLU/ ’ 3401 1 ' 0/ 

1-0 

IOLINE-I 

DO  100  IX-I.NUMB 
I-I  +  l 

IF! I .EQ.S12  1THEN 
BYTE! 1 >-BINPUT< IX) 

OUT! I . IOLINE  l-BYTES 
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C  WR ITE<  6 , 34  )  I  ,  IOL I NE ,OUT( I , IOL INE  > 

OUT ( I  + 1 , IOL I NE  )«SLU 

C  WRITE! 6 , 34 )  1  +  1,1 OL INE, OUT (I«l, IOL  INE) 

1-0 

IOL INE-IOL INE+1 
GO  TO  100 
ENDIF 

BYTE! 1  )-BINPUT< IX ) 

OUT < I , IOL INE  >- IAND< NOT! BYTES). '377 '0) 

WRITE! 6. 34 )  I . IOL INE, OUT! I , IOL INE  ) 

FORMAT! IX. 13, IX, 13, 2X, 06  ) 

0  CONTINUE 
RETURN 
END 

SUBROUTINE  F I  ELD! I F IELO , AVACSR  ) 

INTEGER  AVACSR 

EXTERNAL  IOSWRITEVBLK. IOSREADVBLK 
INTEGER  S YSSASS IGN , SYSSQ I OW , SYSSQ 10 
INTEGER  SYSSGETMSG 
INTEGER*2  IOSB! 4 > .MSGLEN, NPUT.X, Y 
I NTEGER*2  I NP UT , OUTPUT , I N IT! 4  ) 

CHARACTER  »80  MSGBUF 
COMMON/AVACNAN/ ITCNAN 
DATA  IFIRST/1/ 

I  SAVE -AVACSR 
IF! IF IRST 1THEN 

AVACSR-' 4000 ‘0  I  SET  MEMORY  WINDOW  ENABLE  AND  INITIALIZE  AVA 
IF IRST-0 
ELSE 

AVACSR-' 4001' 0 
ENDIF 

I STATUS-SYSSQIOW! XVAL ! 1 >,XVAL! ITCHAN  ) , XVAL  <  XLOC! IOSREADVBLK)), 
1I0SB.  ,  , 

10UTPUT.XVAL!2),XVAL!X),XVAL(Y> .XVAL! AVACSR), XVAL!  IAVAACR  )  > 

IF! AVACSR. EQ. ' 4000 ' 0 )AVACSR- ' 4001 ' 0 
IF! ISTATUS)  GO  TO  501 

TYPE  «,'  ERROR  IN  QIOW  CALL' 

I  STATUS- SYSSGETMSG  ! XVAL <  I  STATUS ) ,  MSGLEN,  MSGBUF,,) 

IF!  .NOT. ISTATUS  )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  »,'QIO  PARAMETER  STATUS MSGBUF 
MSGBUF-'  ' 

I STATUS-SYSSGETMSG  < XVAL ! IOSB! 1  )> ,  MSGLEN,  MSGBUF,,) 

IF!  .NOT. ISTATUS )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'I/0  STATUS:  '  .MSGBUF 
501  AVACSR- 1  SAVE 

I F I  ELD- 1 AND! OUTPUT . 3 ) 

RETURN 

END 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

THIS  PROGRAM  READS  THE  CURRENT  AVA  FRAME  FIELDS  0.1  AND  WRITES 
THEM  TO  DI SKSAVA: CAVA! IMAGES ■ DAT  AS  THEY  ARE  PRESENTED  BY  PLAYING 
THE  HBR-3000  BACK  AT  32X1. 

THIS  PROGRAM  DIFFERS  FROM  MTODSK3  IN  THAT  THE  IRIG  TIME  IN  THE  FRAME 
BUFFER  IS  READ  FOR  EACH  IMAGE  AND  STORED  IN  A  BUFFER. 

THE  BUFFER  IS  OUTPUT  AFTER  ALL  IMAGES  HAVE  BEEN  TRANSFERED  TO  A  FILE 
NAMED  D I SKSAVA: CAVA! I RIGS. OAT.  THESE  IRIGS  WILL  CORRESPOND  ONE  TO  ONE 
WITH  THE  IMAGES  IN  IMAGES . DAT 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
EXTERNAL  IOSWR I TE VBLK . IOSRE ADVBL K . M I TL S 1 
I NTEGER*2  BUF<  200) , I SE TUP ( 14 ) , SLU . IOSB<  4  )  ,D( 4  ) 

REAL *8  QD , I R IG( 1000) 

INTEGER  SVSSASSIGN.  SYSSOIOW,  CHAN , S YSSOIO . SYSSWA I TF R 
INTEGER  SYSSGETMSG .MSGLEN , ISTATUS 
INTEGER*2  X , Y , YA<  4 ) , S YSSDASSGN 
I NTEGER*2  BYTES 
I NTEGE  R*2  OUTPUT , I N I T< 4  ) 

INTEGERS  I NPUT(  65536  ) 

I NTEGE R*2  US.TS.UM.TM 
INTEGER*2  UH.TH.UD.TD.HO 
I NTEGER*2  MS.HMS.TMS 
C  BYTE  B INPUT (  32768  ) 

BYTE  BINPUTI 131072 ) 

INTEGER  AVACSR , AVAACR , SVSSLKWSET , I NLOCKI 2  > , IOLOCK ( 2  > 

INTEGER*2  ISETUP2C 2  ) , ISETUP3C 2  ) 

CHARACTER  *80  MSGBUF 
CHARACTER*60  TITLE , FNAME*60 
CHARACTER*60  NAME 
INTEGER*2  BUFFERL .DEVCODE 
INTEGER  SYSSGETDVI , DV I SFREEBLOCKS 
INTEGER  IFREE 
INTEGER  BUFFERA.ZERO 
COMMON/P RACHAN/ I  DISK 

COMMON/ I TEML I ST/BUFFERL. DEVCODE .BUFFERA.ZERO 

COMMOH/AVACHAN/ ITCHAN 

EOU I VALENCE <  BUF  < 1 ).ISETUP< 1  )) 
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EQUIVALENCE) B INPUT. INPUT) 

EQUIVALENCE) D ,QD ) 

DATA  VA/6 , ' 206 ' 0 , ' 406 ' 0 , ' 606 ' 0/ 

DATA  DVISFREEBLOCKS/  '0000002A'  X/  .ZERO/0/ 

DATA  I  SETUP/' 120040' 0. ' 140001 '0, • 1 21000 '0. ’ 107777' 0, ’ 17777 ‘0. 

1  ' 24061 '0. ' 26002 '0. ' 30000' 0, ’ 44000 '0, ‘64777 ‘0. ' 120000' 0. 

2  ' 50001 ‘0, '70776'O, ' 54000' 0/ 

DATA  ISETUP2/' 64777 '0, ' 44000 ‘0/ 

DATA  IS£TUP3/'64776'0, ’ 44000 ' 0/ 

I  »  SYSSASS1GN)  'GRA0' .CHAN, .  ) 

IF). NOT.  DTVPE  ERROR  IN  GRINNELL  CHANNEL  ASSIGN' 

I  STATUSES VSSASS I GN<  'AVA0' .ITCHAN,  .  ) 

IF)  .NOT. ISTATUS  )TYPE  *,'  ERROR  IN  AVA  CHANNEL  ASSIGN* 

TITLE* '  READ  AVA  BUFFER  AND  WRITE  TO  DISK  TIME' 

NAME-'DISKSAVA: ’ 

BUFFERL-4 

OEVCODE -DVISFREEBLOCKS 
BUFFERA-XLOC) I  FREE  ) 

C  RETURNLA-XLOC) RETURNL > 

I  STATUS -SVSSGETDV I ( XVAL 13), , NAME . BUFFERL , .  ,  ,  > 

IF) .NOT. ISTATUS  )TYPE-, 'PARAMETER  ERROR  IN  GETDVI ' 

I STATUS-SYSSWA ITFR1 XVAL  <  3 )  ) 

TYPE  *, 'BLOCKS  FREE  FOR  IMAGE  STORAGE- '. IFREE 
MAX  IMAGES- 1  FREE/ 4B 1 

TYPE  -.'MAXIMUM  NUMBER  IMAGES  THAT  CAN  BE  STORED- '. MAX  IMAGES 
C 

C  MAXIMAGES-S  1THIS  IS  FOR  DEGUG  ONLY 

C 

N IMAGES-MAX IMAGES-2 
7775  I NSZ-N IMAGE  S-480 

F  NAME  - ' D I S  K IA VA : C AVA1 IMAGES. OAT ' 

TYPE  *,  'OPENING'  , FNAME 

OPEN) UNIT-30, NAME-FNAME.TYPE-'UNKNOWN' , 

1F0RM-' UNFORMATTED* , INITIALSIZE-INSZ, USER0PEN-MITLS1 , 
2REC0RDTYPE- ' FIXED' , RECOROSIZE-4096 , ERR-777 ) 

GO  TO  776 

777  N I MAGE S-N IMAGES- 10 

IF)  N I  MAGES  .  LT  .0  )STOP  '  N  IMAGES  LESS  THAN  ZER0I1HI' 

GO  TO  7775 

776  TYPE-, 'THE  ACTUAL  NUMBER  OF  IMAGES  TO  BE  WRITTEN- ' .NIMAGES 
I STATUS-SYSSASS IGN)  'AVA0'  .AVACHAN , ,  ) 

IF) .NOT. ISTATUS  )TYPE  *,'  ERROR  IN  AVA  CHANNEL  ASSIGN' 

INL0CK1 1 )»XLOC! BINPUT) 1  )  ) 

INLOCK) 2 )«XLOC( BINPUT) 131072) ) 

K-SYSIL KWSET ) INLOCK , IOLOCK ,  ) 

TYPE  *,'  INLOCK! 1 1-  ', INLOCK! 1  ), '  IN10CK)2>-  ',INL0CK(2> 

TYPE  *,'  IOLOCK) 1  )-  ', IOLOCK) 1  ),  '  IOLOCK(2>»  ',I0L0CK!2> 

IF! . NOT. K  )TVPE  *,'  UNABLE  TO  LOCK  BUF ' 

C  K  -  S YSSOIOW) XVAL ! 1 ) , XVAL ( CHAN ) , XVAL ) XLOC ( I OSWR ITE VBLK ) ) , IOSB , , 

C  1 BUF ( 1  ). XVAL (28),  ,, .  ) 

IEVFO-4 
IMAGEN-l 
I  BLOCK- 1 
AVACSR-0 
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CALI  TIMRB 
X-0 

AVAACR* '415'0 

1*  CALL  FIELD! IF  IELD .AVACSR > 

IF!  IFIELD.NE.0IGO  TO  10 

ICURR* I  FIELD 

TYPE  », ' ICURR-' . ICURR 

GET  IRIG 

AVACSR-0 
AVAACR- ' 435 '0 
X- ' 1000 ‘0 
Y«2 

I STATUS-SYSSQIOW! XVAL! 1 > , XVAL ( ITCHAN  > . XVAL ( XL OC ( IOSREADVBLK  ) ) , 

1I0SB.  ,  , 

1 D , XVAL ( 8 ) . X VAL ! X ) . XVAL i Y ) , XVAL ! AVAC SR ) , XVAL ( AVAAC R  )  ) 

IRIG! IMAGEN  )-QD 

GO  GET  SECOND  FIELD  IN  THIS  FRAME 

AVAACR- ‘41  S' 0 
X-0 

1  CALL  FIELD! IFIELD, AVACSR ) 

IF! IFIELD.EQ. ICURR  ) GO  TO  11 

I  STORE F I  ELD- ICURR  (CURRENT  FIELD  TO  PUT  ON  DISK 

ICURR- 1  FIELD  ICURRENT  FIELD  BE  LOADED  INTO  THE  AVA 

TYPE  *, ' ICURR-' . ICURR, ' I STOREF I  ELD- ' , ISTOREF IELD 

GO  TO  11 

ICOUNT-0 

1  Y-YA1 ISTOREF IELD*!  ) 

I STATUS-SYSSQIOW! XVAL ! 1 ),XVAL! ITCHAN  >, XVAL I XLOC ( IOSREADVBLK)  ) . 

1I0SB, . , 

1 1 NP UT , XVAL ! 32768 ) , XVAL ! X  > , XVAL ! Y ) , XVAL ! AVACSR  ) . XVAL ( AVAACR  )  ) 

IF ( AVACSR . EQ .0 )  AVACSR-1 

I STATUS-S YSSOIO! XVAL! IEVFO) ,XVAl! I D I SK ) , XVAL ! XLOC! IOSWRITEVBLK ) ) , 

1 IOSB, , , 

IB  INPUT! 1  ), XVAL! 32768), XVAL! IBLOCK), ,, ) 

I  BLOCK -I  BLOCK +64 
Y-Y+32 
I  SADR-32769 

2  I STATUS-S YSSQIOW! XVAL! 1 ) .XVAL! ITCHAN ) .XVAL! XLOC! IOSREADVBLK)  ) , 

1 IOSB , , . 

1 B I NP  UT! I  SADR) .XVAL! 32768 ), XVAL! X ) , XVAL  <  Y >, XVAL ( AVACSR ) .XVAL! AVAACR ) ) 
ISTATUS-SYSSQIO! XVAL! IEVFO) .XVAL! IDISK ), XVAL! XLOC! IOSWRITEVBLK) ) , 

1 IOSB, ,  , 

1 B I  NP  UT!  I  SADR ) , XVAL! 32768 ) , XVAL ( IBLOCK),  ,  ,  ) 

IBLOCK-IBLOCK+64 

Y-Y+32 

3  I STATUS-S YSSQIOW! XVAL! 1 ),XVAL! ITCHAN ) .XVAL ( XLOC! IOSREADVBLK  >) , 

1 IOSB  ,  .  , 

1 B INPUT!  65537 ), XVAL! 32768 >, XVAL ! X ), XVAL (Y), XVAL (AVACSR). XVAL (AVAACR)) 
ISTATUS-SYSSQIO! XVAL!  IEVFO) , XVAL!  IDISK ) .XVAL! XLOC! IOSWRITEVBLK  > ) , 

1 IOSB  ,  .  , 

I B INPUT! 65537), XVAL (32768), XVAL! IBLOCK), ,,  ) 
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IBLOCK-IBLOCK+64 

Y-Y+32 

4  I  STATUS’S YSSQIOWS XVAL < 1 > .XVALS ITCHAN ) , XVAL < XLOCS IOSREADVBLK) ) , 

1IOSB. . . 

I B I NP  UT (  983*5 ) . XVAL ( 24576  > , XVAL ( X ) , XVAL ( Y  > , XVAL  C  AVACSR  ) , X VAL ( AVAACR  )  ) 
I  STATUS’S YSIQ 1 0(XVAL( IEVFO) , XVAL < 1  DISK ) .XVALC XLOCS IOSWRITEVBLK )  ). 
1IOSB, , , 

IB INPUTS 98305 ). XVALC 24576 ), XVALC IBLOCK), , ,  > 

IBLOCK-IBLOCK+48 
IF  < 1COUNT.EQ.01THEN 
I COUNT • 1 
ISTOREFIELD-1 
GO  TO  1 
ENDIF 

c  type* , imagen/2 , n images 

IF (  IMAGEN . GE . N IMAGES (THEN 

TYPE  *, IMAGEN.  'IMAGES  WRITTEN  TO  DISK  IN  IMAGES . DAT ’ 

CALL  TIMRE 
CALL  HEADERSTITLE > 

I  STATUS’S YSSOASSGNC  XVAL ( ID ISK  )  ) 

CLOSES  UNIT-30) 

PROCESS  1  RIG  BUFFER 

OPENS UN1T«9, NAME* ' DISKSAVA: CAVA] IRIGS.DAT' , STATUS- ' NEW' ) 

DO  IRIGX’l . IMAGEN 
QD-IRIGS IRIGX  ) 

DO  1-2,4 
DS I ) -NOT S DS  I  )  ) 

ENDOO 

HMS- IANDS I3HFTSDI2)t-8), 'F'X) 

TMS-IANDS ISHFTSDS2),-4), 'F'X) 

MS- IANDS  DS  2  ) , 'F'X) 

US-IANDS ISHFTS0S21.-12), ’F'X) 

TS- IANDS  DS  3 ) , 7  ) 

UM- IANDS I SHFTS  DS  3  ) , -3  ) .  'F'X) 

TM- IANDS ISHFTS  DS  3  ) , -7 ) , 7 ) 

UH- IANDS I SHFTS DS 3), -10). 'F'X) 

TH- IANDS I SHFTS OS  3), -14). 3) 

UD- IANDS DS  4  ) . 'F 'X) 

TD- IANDS ISHFTS OS  4  >,-4). 'F 'X  ) 

HD- IANDS ISHFTS  DS  4 ) , -8 ) , ' F ' X ) 

WRITES  9, 13 )HD,TD,UD,TH,UH,TM,UM,TS.US,HMS,TMS,MS 
13  FORMATS  3ZI . ' : ' , 1X.2Z1 , ' : ' ,Z1 ,Z1 , ' : ' .2Z1 , ' : ' ,3Z1  ) 

ENDDO 

STOP  '  I/O  COMPLETE . ' 

ENDIF 

IMAGEN-IMAGEN+1 
GO  TO  10 
57  CONTINUE 

ISTATUS-SYSSCETMSG  S XVAL S I  STATUS ) ,  MSGLEN,  MSGBUF , ,  ) 

TYPE  *.'  ISTATUS*' .ISTATUS, '  10SBS 1  )• '  , IOSBS 1 > 

TYPE  *,'  ISTATUS-' .ISTATUS, '  IOSBS I )-'. IOSBS 1 > 

IF  <  .NOT. ISTATUS)  TYPE  «. 'ERROR  IN  CALL  TO  SGETMSG 1 
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TYPE  * , ‘ QIO  PARAMETER  STATUS: ' .MSGBUF 
MSGBUF- 1  • 

ISTATUS-SYSSGETMSG  < XVAL < IOSB! 1  )> .  MSGLEN.  MSGBUF,,) 

I F ( . NOT . I  STATUS  )  TYPE  », 'ERROR  IN  CAUL  TO  SGETMSG ' 

TYPE  -.'I/O  STATUS: ' .MSGBUF 
STOP 

Cll  FORMAT! IX , ' INPUT- 1 ,06 , 2X , 1 IOSB-’ , 06 . 2X . 06 , 2X . 06 , 2X , 06 > 

K  -  SYSSQIOW! XVAL ( 1 ) . XVAL ( CHAN >. XVAL ( XLOC ( IOSWR ITEVBLK  >  > , IOSB , , , 
1ISETUP3, XVAL <  4  ) , , , ,  ) 

END 

SUBROUTINE  BUFFCNVT! NUMB , BINPUT . OUT  ) 

BYTE  BINPUT! 1 ) , BYTE ! 2 ) 

INTEGERS  0UT!513,1  ), BYTES, SLU 
EQUI VALE NCE!BYTES, BYTE ) 

DATA  SLU/' 34011  '0/ 

1-0 

IOLINE-I 

DO  100  IX-1 , NUMB 
1-1*1 

IF! I . EQ. 51 2 )THEN 
BYTE! 1 (-BINPUT! IX) 

OUT! I , IOLINE (-BYTES 
C  WRITE <6,34)  I . IOL INE .OUT! I . IOL INE  ) 

OUT! 1  +  1 , IOLINE  )-SLU 

C  URITE  <  6 , 34  )  I *1 , IOL INE .OUT! I *1 . IOL I  HE  ) 

1-0 

IOL INE-IOL I NE*1 
GO  TO  100 
ENDIF 

BYTE! 1 l-BINPUT! IX) 

OUT! I , IOL I NE  )- IAND! NOT! BYTES ) , '377'0> 

C  WRITE! 6,34)  I . IOL I NE . OUT! I , IOL I NE  ) 

34  FORMAT  <1X,13,1X,I3,2X, 06 ) 

100  CONTINUE 

RETURN 
END 


SUBROUTINE  FIELD! IFIELD , AVACSR ) 

INTEGER  AVACSR 

EXTERNAL  IOSWRITEVBLK , IOSREADVBLK 
INTEGER  SYSSASSIGN, SYSSQIOW, SYS SO 10 
INTEGER  SYSSGETMSG 
INTEGER*2  IOSB! 4  )  .MSGLEN , NPUT, X , Y 
INTEGER*2  INPUT, OUTPUT, INIT! 4 ) 

CHARACTER  *80  MSGBUF 
COMMON /AVAC HAN/ I TC HAN 
DATA  IF IRST / 1 / 

I  SAVE -AVACSR 
IF! IF IRST )THEN 

AVACSR- ' 4000' 0  l SET  MEMORY  WINDOW  ENABLE  AND  INITIALIZE  AVA 

IFIRST-0 

ELSE 

AVACSR- 1 4001 '0 
ENDIF 

ISTATUS-SYSSQIOW! XVAL! 1 ),XVAL< ITCHAN ) .XVAL ! XLOC! IOSREADVBLK) ), 
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i rose. . , 

10UTP UT , XVAL ( 2  > , XVAL <  X ) . XVAL ( Y ) , XVAL <  AVACSR ) , XVAL ( IAVAACR ) > 
I F ( AVACSR . EQ . ' 4000 ' 0  JAVACSR- ' 4001  'O 
I F ( I  STATUS  )  GO  TO  501 

TYPE  *,'  ERROR  IN  QIOW  CALL' 

I  STATUS'S YSSGETMSG  ( XVAL ( I  STATUS ) ,  MSGLEN,  MSGBUF , , ) 

I F  <  .NOT. ISTATUS)  TYPE  ‘.‘ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  * , 1 QIO  PARAMETER  STATUS MSG8UF 
MSGBUF-'  ‘ 

I  STATUS -SYS SGETMSG  ( XVAL ( IOSBI 1)  ) .  MSGLEN.  MSGBUF.,) 

IF( .NOT. ISTATUS)  TYPE  ‘.'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  ‘.'I/O  STATUS: ' .MSGBUF 
501  AVACSR- l SAVE 

I F I E  L  D* IANO<  OUTPUT , 3  > 

RETURN 

END 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

THIS  PROGRAM  READS  THE  CURRENT  AVA  FRAME  FIELD  AND  WRITES  IT 
IT  TO  DI SKSIMAGES : CAVA I  IMAGES . DAT .  THE  NEXT  FIELD  IS  THEN  WRITTEN 
TO  DISK  ALSO  IF  THERE  IS  ENOUGH  TIME  ELSE  A  FIELD  IS  SKIPPED  AND  THE  » 
PROCESS  CONTINUES. 

THIS  PROGRAM  IS  DIFFERENT  FROM  MTODSK3  IN  THAT  IT  TRANSFERS  THE 
CURRENT  FIELD  AND  FOLLOWING  FIELDS  WHERE  AS  MTODSK3  ALWAYS  TRANSFERS 
FIELD  0  THEN  FIELD  I  AND  DOES  NOT  ATTEMPT  TO  TRANSFER  FIELDS  2  OR  3. 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
EXTERNAL  IOSWRITEVBLK, IOSREADVBLK , M I TL S 1 
INTEGER*2  BUF< 2BB) . I  SETUP! 1 4  ) . SLU . IOSB<  *  ) 

INTEGER  SYSSASSIGN,  SYSSOIOW,  CHAN , SYSSQIO , SYSSWAITFR 
INTEGER  SYSSGETMSG , MSGLEN , 1  STATUS 
I NTEGER*2  X , Y , YA( 4  > , SYSSDASSGN 
INTEGERS  BYTES 
INTEGER*2  OUTPUT , I NIT< 4 ) 

INTEGER*2  I NPUT<  65536  ) 

C  BYTE  BINPUT( 32768) 

BYTE  B I NPUT( 1 31072 ) 

INTEGER  AVACSR , AVAACR . SVSSLKWSET, INLOCK! 2 ) . IOLOCK!  2  > 

INTEGER*2  ISETUP2!2),ISETUP3!2> 

CHARACTER  *80  MSGBUF 
CHARACTER* 60  TITLE . FNAME*60 
CHARACTER*60  NAME 
I NTEGER*2  BUFFERL . DEVCODE 
INTEGER  SYSSGETDVI . DV I SFREEBLOCKS 
INTEGER  IFREE 
INTEGER  BUFFERA , ZERO 
COMMON/PRACHAN/ 10 ISK 

COMMON/ITEMLIST/BUFFERL .DEVCODE .BUFFERA, ZERO 

COMMON /A VAC HAN/ I TCHAN 

EOU I VALENCE (BUF( 1  ) . I  SETUP < 1  )  ) 

EQUIVALENCE! B INPUT, INPUT) 

DATA  YA/6 , ' 206 1 0 , ' 406 1 0 , ‘ 606 1 0/ 

OATA  DVI SFREEBLOCKS/ '0000002A' X/, ZERO/0/ 

DATA  I  SETUP/ 1 1 20040' 0. ’ 140001' 0, ' 1 21000' 0,  ' 107777 '0, ' 17777 '0. 

1  '24061 ‘0. ' 26002 ' 0, '30000'O, '44000'O, '647770, ’ 120000'O, 
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2  '50001 ‘0, '70776 '0, '54000'O/ 

DATA  ISETUP2/'64777‘0, 1 44000' 0/ 

DATA  IS£TUP3/'64776'0, ' 44000' 0/ 

I  -  SYSSASS1GNC  ' GRA0 '  , CHAN , ,  ) 

IFC  . NOT.  I JTYPE  *,'  ERROR  IN  GRINNELL  CHANNEL  ASSIGN* 
ISTATUS-SYSSASSIGNC ' AVA0 ' . ITCHAN. . > 

IFC .NOT. ISTATUS (TYPE  *.'  ERROR  IN  AVA  CHANNEL  ASSIGN- 
TITLE-'  READ  AVA  BUFFER  AND  WRITE  TO  DISK  TIME' 

NAME • ' D I SKSAVA : * 

BUFFERL-4 

DEVCODE-DVISFREEBLOCKS 
BUF F E RA-XLOC ( IFREE  ) 

C  RETURNLA-%LOC( RETURNL  ) 

ISTATUS-SYSSGETDVI ( XVALC 3  > , .NAME .BUFF ERL , , . .  ) 

I F ( .NOT. ISTATUS )TYPE«, 'PARAMETER  ERROR  IN  GETDVI ' 

I STATUS-SYSSWA ITF  RC XVAL  <  3 > ) 

TYPE  «. 'BLOCKS  FREE  FOR  IMAGE  STORAGE- IFREE 
MAX  IMAGES- 1  FREE /5 1 3 

TYPE  ", 'MAXIMUM  NUMBER  IMAGES  THAT  CAN  BE  STORED- ' .MAXIMAGES 
C 

C  MAX  I  MAGE  S- 30  1THIS  IS  FOR  DEGUG  ONLY 

C 

NIMAGES-MAXIMAGES 
7775  I NSZ-N IMAGE  S-48 1 

FNAME - ' DISKSAVA : CAVAI IMAGES . DAT ' 

TYPE  *. 'OPENING' .FNAME 

OPENC  UN  IT-30,  NAME -FNAME, TYPE- 'UNKNOWN' . 

I  FORM-' UNFORMATTED'  , I N ITI AL S IZE - 1 NSZ . USEROP EN-M I TLS1 , 
2REC0RDTYPE-' FIXED' , RECORDSIZE-4096 , ERR-777 > 

GO  TO  776 

777  NIMAGES-NI MAG  E  S - 1 0 

I F  (  N  IMAGES  .  LT  .  0  (STOP  'NIMAGES  LESS  THAN  ZEROMIIl' 

GO  TO  7775 

776  TYPE*. 'THE  ACTUAL  NUMBER  OF  IMAGES  TO  BE  WRITTEN- ', NIMAGES 
ISTATUS-SYSSASSIGNC  ' AVA0 '  .AVACHAN. .  ) 

IFC  .NOT. ISTATUS  1TYPE  *,’  ERROR  IN  AVA  CHANNEL  ASSIGN' 

INLOCKC 1 >»%LOC<  BINPUTC 1  )  ) 

INLOCKC21-XLOCC8INPUTC 13I07Z)  ) 

K-SYSSLKWSETC I NLOCK , IOLOCK ,  ) 

TYPE  *,*  INLOCKC 1 >-  ', INLOCKC 1  ), '  INLOCKCZ)-  ',INL0CK(2> 

TYPE  *.'  I0L0CKC 1 >«  '  . IOLOCKC 1  ) , '  IOLOCKC2)-  ’.I0L0CK12) 

IFC. NOT . K  )T YP  E  *,'  UNABLE  TO  LOCK  BUF' 

AVAACR- ' 4 1 5 ' 0 

C  K  -  S YSSQI OWC  XVAL  Cl), XVAL ( CHAN ) , XVAL  C  XLOC ( I OSWRITE VBLK  )  ) , I OSB , , 

C  1BUFC I  ) , XVALC 28  ) ,  ,  ,  ,  ) 

IEVFO-4 
IMAGE  N» 1 
IBLOCK-l 
AVACSR-0 
CALL  TIMRB 
X-0 

CALL  FIELOC IF  I  ELD , AVACSR  ) 

ICURR-IF IELO 
GO  TO  11 
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10  CALL  FIELD!  I F  I  ELD .AVACSR ) 

I F ( IFIELD.NE.ICURRiGO  TO  10 
ICURR*IF I  ELD 

C  TYPE  ICURR-' .ICURR 

11  CALL  FIELD! IF  I  ELD , AVACSR) 

IF! IFIELD.EO. ICURRJGO  TO  11 

ISTOREFIELD-ICURR  1CURRENT  FIELD  TO  PUT  ON  DISK 

ICURR»  IF IEL0  1CURRENT  FIELD  BE  LOADED  INTO  THE  AVA 

TYPE  *, 1 ICURR-' . ICURR, ' ISTOREF I  ELD- ' , ISTOREF I  ELD 
GO  TO  11 
ICOUNT-0 

1  ISTOREF-ISTOREFIELD+1 
Y-YA! ISTOREF  ) 

ISTATUS-SY$SQIOW(XVAL( 1 >,XVAL< ITCHAN  > , XVAL ( XLOC ( IOSREADVBLK )  ), 

1 IOSB, . , 

I  INPUT, XVAL! 32768), XVAL! X), XVAL! Y), XVAL! AVACSR), XVAL! AVAACR  )  > 

I F 1 AVACSR . EQ . 0 )  AVACSR-1 

I STATUS-SYSSQI O! XVAL < IEVFO),XVAL! 1 0 1 SK > . XVAL < XLOC! IOSWR ITEVBLK )  ), 

1 IOSB, ,  , 

1BINPUT!  1 ) .XVAL! 32768 ) .XVAL! I  BLOCK  ).  , , > 

I  BLOCK- 1 BLOCK  +  64 
Y*Y  +  32 

2  ISTATUS-SYSSQIOW! XVAL! 1 J.XVAL! ITCHAN ), XVAL ( XLOC! IOSREADVBLK) ), 

1 IOSB  ,  ,  , 

1BINPUT!  32679), XVAL  132768), XVAL ( X ) , XVAL i Y ) , XVAL ( AVACSR  ) , XVAL ( AVAACR  >  > 
ISTATUS*SYSSQIO( XVAL ! I EVFO ) , XVAL ( I D 1 SK ) , XVAL ( XLOC ( IOSWRITEVBLK ) ) , 

1 IOSB, , , 

IB  INPUT!  32679  ), XVAL! 32768) .XVAL! IBLOCK), , ,  > 

I  BLOCK* I  BLOCK +  6 4 
Y-Y+32 

3  ISTATUS-SYSSQIOW! XVAL! 1 ) .XVAL! ITCHAN ) .XVAL! XLOC! IOSREADVBLK ) ) , 

1 IOSB  ,  ,  . 

1BINPUTI65537), XVAL ( 32768 ) , XVAL ! X ) , XVAL I Y  ) . XVAL ( AVACSR  > . XVAL ( AVAACR  )  ) 
ISTATUS-SYSSQIO! XVAL!  I EVFO), XVAL! I D I SK ) , XVAL ! XLOC! IOSWRITEVBLK) ) , 

1 IOSB, , , 

1BINPUT!  65537  ), XVAL (32768), XVAL! IBLOCK),  ,  ,  ) 

I  BLOCK- 1  BLOCK +  64 
Y-Y+32 

4  I  STATUS -SYSSQ 1 0W( XVAL ( 1  I.XVAL! ITCHAN  ), XVAL ! XLOC ( IOSREADVBLK)  ), 

1 IOSB,  ,  , 

IB  INPUT!  98305 ). XVAL ( 24576  >, XVAL ( X ), XVAL ( Y  >, XVAL ( AVACSR  ), XVAL ( AVAACR  >  ) 
ISTATUS-SYSSQIO! XVAL! IEVFO),XVAL< I D I SK > , XVAL ( XLOC ( IOSWRITEVBLK) >, 

1 IOSB,  ,  , 

IB  INPUT! 98305) , XVAL (24576), XVAL!  IBLOCK  >,  ,  ,  ) 

I  BLOCK* I  BLOCK* 48 
IF! ICOUNT.EQ.0JTHEN 
ICOUNT* 1 

ISTOREF IELO-ISTOREFIELD+ I 

IF!  I  STORE  FI  ELD. GT. 3  > I STOREF I ELD-0 

GO  TO  1 

ENDIF 

IF! IMAGEN . GE . N IMAGES  ITHEN 

TYPE  *,  '  I/O  COMPLETE . ' 

TYPE  «, IMAGEN,'  IMAGES  WRITTEN  TO  DISKSAVA : CAVA1IMAGES . DAT ' 
CALL  TIMRE 


i 
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CALL  HEAOER(TITLE ) 

ISTATUS»SYSSOASSGN(XVAL! IDISK>> 

CLOSE<  UNIT-30) 

STOP  'IMAGE  WRITTEN  TO  DISK' 

END  IF 

IMAGE  N- 1  MAGE  N+l 
GO  TO  10 
57  CONTINUE 

ISTATUS-SYSSGETMSG  ( XVAL! I  STATUS  )  ,  MSGLEN,  MSGBUF  ,  ,  > 

TYPE  [STATUS’1 .ISTATUS, ‘  IOSBI 1 >- 1 , IOSBM ) 

TYPE  * , '  I  STATUS- 1 , ISTATUS , '  IOSB( 1 IOSBI  1  > 

IF(  . NOT. ISTATUS  )  TYPE  ”, 'ERROR  IN  CALL  TO  SGETMSG ‘ 

TYPE  *,'010  PARAMETER  STATUS :', MSGBUF 
MSGBUF-'  ' 

ISTATUS-SYSSGETMSG  ( XVAL! I0SB< 1 ) ) ,  MSGLEN.  MSGBUF,,) 

IF < .NOT. ISTATUS) 'TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,‘I/0  STATUS: ' .MSGBUF 
STOP 

11  FORMAT! IK, ' INPUT-' ,06, 2X, ' IOSB-' , 06 , 2X . 06 , 2X , 06 , 2X , 06 > 

K  -  SYSSO I 0W( XVAL ( 1 ) , XVAL ( CHAN ) , XVAL ( XLOC ( I OSWR ITEVBLK) ), IOSB , , 
1 1  SETUP 3 , XVAL ( 4  ) , , , ,  ) 

END 

SUBROUTINE  BUFFCNVT! NUMB, B INPUT. OUT) 

BYTE  81 NPUT( 1  ) , BYTE ( 2  > 

I NTEGER*2  OUT! S 1 3 , 1  )  ,  BYTES  ,  SLU 
EQUIVALENCE! BYTES. BYTE > 

DATA  SLU/ ' 3401 1 ' 0/ 

1-0 

I0LINE-1 

DO  100  I X- 1 .NUMB 
I-I  +  l 

IF! I . EQ.512  1THEN 
BYTE! I  ) -BI NPUT! IX  > 

OUT( I.10LINE I’BYTES 

C  WRITE (6,34)  I . IOL I NE . OUT! I , I0L I NE  ) 

OUT!  IM.IOLINEl-SLU 

C  WRITE (6,34)  I ♦ 1 , 1 OL I NE , OUT! I  + 1 , IOL I NE  ) 

1-0 

IOLINE-IOLINE+1 
GO  TO  100 
ENDIF 

BYTE! I >«B I NPUT! IX) 

OUT! I , IOL INE >-IANO( NOT! BYTES), '377 '0> 

C  WRITE (6,34)  I , IOL I NE , OUT! I , IOL I NE  ) 

34  FORMAT! IX, 13, IX, 13, 2X. 06) 

1 00  CONTINUE 

RETURN 
END 

SUBROUTINE  FIELD! IFIELD.AVACSR) 

INTEGER  AVACSR 

EXTERNAL  IOSWR I TE VBLK , IOSREADVBLK 
INTEGER  SYSSASSIGN.SYSSQIOW, SYSSO 10 
INTEGER  SYSSGETMSG 
INTEGER*2  IOSB! 4 ), MSGLEN, NPUT , X , Y 
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INTEGER*2  I NPUT .OUTPUT , INIT< 4  ) 

CHARACTER  *80  MSGBUF 
COMMON/A VACHAN/ I TCHAN 
DATA  IFIRST/1/ 

I  SAVE -AVACSR 
I F ( IF IRST 1THEN 

AVACSR- ‘ 4000 1 0  I  SET  MEMORY  WINDOW  ENABLE  AND  INITIALIZE  AVA 
IF IRST-0 
ELSE 

AVACSR- ' 4001 '0 
ENOIF 

I STATUS-SYSSO I0W<  XVAL( I ),XVAL< ITCHAN ) , XVAL ( XLOC< 10SREADVSIK ) > , 
1 IOSB , . . 

I OUTP UT . XVAL ( 2 ) , XVAL ( X ) , XVAL ( Y ) , X VAL ( A VAC  SR > . XVAL ( IAVAACR  )  ) 

I F ( AVACSR . EQ . ' 4000 ' 0  JAVACSR- ' 4001 ' 0 
I F ( I  STATUS  >  GO  TO  S01 
TYPE  '  ERROR  IN  OIOW  CALL' 

ISTATUS-SYSSGETMSG  ( XVAL < I  STATUS ) .  MSGLEN,  MSGBUF ) 

IF< .NOT. ISTATUS )  TYPE  ‘.'ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  *,'010  PARAMETER  STATUS MSGBUF 
MSGBUF-'  ' 

ISTATUS-SYSSGETMSG  ( XVAL ( I OSB(  1 ) ) ,  MSGLEN.  MSGBUF,.) 

I F ( .NOT. ISTATUS)  TYPE  «, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'I/0  STATUS.- '  .MSGBUF 
501  AVACSR- 1  SAVE 

I F 1  ELD- 1 AND( OUTPUT , 3  ) 

RETURN 

END 
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CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

THIS  PROGRAM  READS  THE  D I SKSIMAGES : CAVAI IMAGES . DAT  FILE  AND  DISPLAYS 
THE  IMAGE  ON  THE  GRINNELL. 

THIS  IS  THE  COMPACT  IMAGE  FORMAT  USED  WHEN  TRYING  TO  OUTPUT  THE  AVA 
IMAGE  AS  FAST  AS  POSSIBLE. 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

EXTERNAL  IOSWR ITE VBL K . I OSREADVBL K , MITL S 1 
INTEGERS  BUF<  200) , I  SETUP! U  > , SLU, IOSB<  4  > 

INTEGER  SYSSASSIGN,  SYSSOIOU,  CHAN . SY SSQI 0 , SYSSUAITF R 

INTEGER  SYSSGETMSG .MSGLEN , ISTATUS 

INTEGER*?  OUT (513,64), X,Y 

BYTE  BOUTC 65664), BYTE<2>, I  IMAGES! 4  > 

INTEGERS  BYTES 
INTEGER*?  OUTPUT, INIT<4> 

INTEGER*?  INPUT!  16384  ) 

BYTE  B I NPUT! 32768  ) 

INTEGER  AVACSR , AVAACR 
INTEGER*?  ISETUP2(2),ISETUP3(2) 

CHARACTER  *80  MSGBUF 
CHARACTER*60  TITLE. FNAME 
EQUIVALENCE! BUF! 1  >. I  SETUP! I  )) 

EQUIVALENCE! BINPUT. INPUT) 

EQUIVALENCE! BOUT , OUT ) , <  BYTE , BYTES ) 

COMMON /PRACHAN/ I D I SK 

DATA  I  SETUP/'  12M40 '0.  '  140001  '0,  '  121000'O,  '  107777' 0.  '  17777 '0. 

1  '24061 '0, *  26002 ' 0, 1 30000 ' 0 , '44000'O, '64777'0, ' 120000'O, 

2  '50001 '0, '70776 '0, ' 54000’O/ 

DATA  ISETUP2/'64777'0, ' 44000 ' 0/ 

DATA  ISETUP3/'64776'0, '44000-0/ 

I  -  SYSSASSIGN!  'GRA0'  , CHAN, ,  ) 

IF!. NOT.  I  )TYPE  *,'  ERROR  IN  GRINNELL  CHANNEL  ASSIGN' 
ISTATUS-SYSSASSIGN!  ' AVA0' , ITCHAN, ,  ) 

IF! .NOT. ISTATUS >TYPE  *,'  ERROR  IN  AVA  CHANNEL  ASSIGN' 

AVACSR-0 
AVAACR-’ 415'0 

K  -  SYSSQIOU! XVAL! 1 ) , XVAL ( CHAN ) , XVAL ( XLOC ( IOSWR I TE VBL K > > , I OSB , , , 

1 BUF ( 1 ). XVAL (28), , , ,  ) 
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TITLE*1  READ  DISK  AND  WRITE  TO  GRINNELL  TIME' 

NIMAGES-1 
I NSZ*N IMAGES*5 1 3 

FNAME* 1 D I SKSAVA : CAVA I  IMAGES . DAT  1 
OPEN! UN  IT* 30 , NAME *F NAME . TVPE- 1  UNKNOWN  1 . 

1FORM*1 UNFORMATTED1 , I N ITI AL S I ZE ■ I NSZ , USE ROP E N-M ITL SI , 
2RECORDTYPE*'F I XE D 1 , RECORDS  I ZE -4096  ) 

IEVFO-4 

Y-6 

X-0 

TYPE  *, 'ENTER  STARTING  IMAGE  NUMBER  DESIRED1 

ACCEPT*. IBLOCK 

I F ( IBLOCK. EQ. I >THEN 

I 3LOCK* 1 

ISTARTI-1 

ELSE 

ISTARTI*IBLOCK 
I  BLOCK* 1 ♦! 240*< I  BLOCK- 1 ) > 

END  I F 

TYPE*. 'ENTER  IMAGE  INCREMENT1 
ACCEPT*. IBLOCKI 
ICOUNT  *0 

C  CALL  TIMRB 

TYPE  *. 'ENTER  NUMBER  OF  IMAGES  TO  DISPLAY1 
ACCEPT*. IFIELDS 
C  TYPE  *, IFIELDS 

IFIELDS»IFIELDS*8 

1  I F ( ICOUNT. EQ. 3. OR. ICOUNT. E0.7)THEN 

NBYTES-24576 
ELSE 

NBYTES-32768 

ENDIF 

ISTATUS-SYSSOIOWI XVALI IEVFOJ.XVALI  ID  I SK > , XVAL ( XLOCI IOSREADVBLK ) > , 
I IOSB,  .  . 

1 B I NP UT< 1 ) ,XVAL( NBYTES ) ,XVAL( IBLOCK),  ,  ,  > 

I F ( ICOUNT. EQ. 3. OR. ICOUNT . EQ. 7  )THEN 
I  BLOCK* I  BLOCK* 48 
NUMB-24S76 
ELSE 

NUMB-32768 
I  BLOCK* I BLOCK  +  64 
ENDIF 

I STATUS*SVS$Q IO<  XVAL ( 1 ), XVALI ITCHAN ). XVAL ( XLOCI IOSREADVBLK) ) , 

I IOSB, , , 

1 1 NP UT.XVALI NBYTES ). XVALI X ), XVALI Y) .XVAL I AVACSR), XVALI AVAACR)) 

1  INPUT, XVAL I  30720) .XVALI X ) .XVALI Y ), XVAL I AVACSR ). XVAL I AVAACR )  ) 

IFl AVACSR. EQ.01AVACSR-1 

IF( .NOT. ISTATUS.OR. .NOT. IOSB! I > >GO  TO  57 

C  WRITE  I  4 , 54  )B I NPUT 

54  FORMAT! IX, 161 IX. 03) ) 

CALL  BUFFCNVTI NUMB. BINPUT, OUT) 

C  TYPE  *, 'NUMBER  OF  LINES  TO  OUTPUT- 1 . IOL I NE 

IF! ICOUNT. EQ. 3. OR. ICOUNT. EQ. 7  1THEN 
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IGBYTES-24624 

ELSE 

IGBVTES-32832 

ENDIF 


ISTATUS  *  S YSSQIO! XVAL (  1  ) , XVAL <  CHAN  ) , 

1XVAL ( XLOC ( IOSWRITEVBLK) > , IOSB, ,  . 

1  BOUT !  I ) , XVAL ( IGBYTES  ) . , , .  ) 

ISTATUS  -  SYSSQIO!  XVAL ( 1 ) < XVAL ( CHAN  ) , 

1 XVAL <  XLOC ( IOSWRITEVBLK)  ) , IOSB. , , 

1  BOUT ( IGBYTES* 1  )  ,XVAL<  IGBYTES  ) , .  , ,  ) 

C  IF! .NOT. ISTATUS. OR. .NOT. IOSB! 1 > )G0  TO  57 

Y-Y+32 

ICOUNT-ICOUNT+1 
IF! I  COUNT ,EQ.4)TH£N 

K  «  SYSSQIO(XVAL! I >, XVAL < CHAN >, XVAL < XLOCI IOSWRITEVBLK) ). IOSB, , , 

1 I SETUP3! 1  ) , XVAL <  4  ) , . . .  ) 

Y»'2j0T6'O 

X-0 

ENDIF 

I F ( ICOUNT.EO.BJTHEN 
I IMAGEBt 1 > -27 
I I MAGE B! 2  )-89 
I IMAGEB!  3  )-55 
1  IMAGE  B( 4 )  •  40 

WRITE(6,77)I IMAGEB , I START  I 

77  FORMAT! 1H+.4A1 . ■ IMAGE  NUMBER‘,15,  '  DISPLAYED  ON  THE  GRINNELL  NOW.’) 

ICOUNT-0 

I  START  I - I START I  *  I  BLOCK I 
IBLOCK-IBLOCK*!  240* < IBLOCKI-1 ) ) 

K  »  SYSSQIO! XVAL  < 1 ) , XVAL ( CHAN ) , XVAL  <  XLOC  ( IOSWR ITEVBLK) ) , IOSB,  ,  , 

1 ISETUP2! 1 ) , XVAL <  4 ) , , , .  ) 

CALL  TIMRE 

CALL  HEADER! TITLE  ) 

STOP  -IMAGE  READ  IN  AND  DISPLAYED  ON  GRINNELL1 

Y-6 

ENDIF 

IFIELOS-IFIELDS-I 
IF! IFIELDS.EQ.01STOP 
GO  TO  1 

7  CONTINUE 

ISTATUS-SYSSGETMSG  ! XVAL! ISTATUS > ,  MSGLEN,  MSGBUF  ,  ,  ) 

TYPE  *,'  ISTATUS-1 .ISTATUS, 1  IOSB! 1  )- 1  , IOSB! 1  ) 

TYPE  *,■  ISTATUS-1 , ISTATUS. 1  IOS8! 1 >- 1 , IOSB! 1 > 

IF! .NOT. ISTATUS  )  TYPE  *, ‘ERROR  IN  CALL  TO  SGETMSG 1 
TYPE  * , 1 QIO  PARAMETER  STATUS s 1 .MSGBUF 
MSGBUF-1  1 

ISTATUS-SYSSGETMSG  I XVAL! IOSB! 1 )  ) .  MSGLEN,  MSGBUF,.) 

IF! .NOT. ISTATUS  )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG 1 

TYPE  -.'I/O  STATUS: 1 .MSGBUF 

STOP 

11  FORMAT! IX, 1  INPUT-1 ,06, 2X, 1 IOSB-1 ,06 , 2X ,06 , 2X , 06 , 2X , 06 ) 

K  -  SYSSQIOW! XVAL! I ), XVAL ( CHAN ), XVAL ( XL OC (  I OSVR 1 TE VBLK >  > , IOSB , . , 

1 1 SETUP3 , XVAL ( 4  ),,.,) 

END 
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SUBROUTINE  BUFFCNVT! NUMB, B INPUT, OUT) 
BYTE  81NPUT! 1  ).BYTE(2) 

INTEG£R*2  OUT( 5 1 3 , 1 ) , B YTES , SLU 
EOUIVALENCEiBYTES, BYTE  ) 

DATA  SLU/ ' 3401 1 '0/ 

1-0 

IOLINE-1 

DO  100  I X- 1 .NUMB 
1-1*1 

I F ( I . EQ. 512 )THEN 
BYTE ( 1  )-B INPUT! IX) 

OUT! 1 , IOLINE  J-BYTES 

C  WR I TE ! 6 , 34 )  I , IOLINE, OUT! I , IOLINE  ) 

OUT! 1  +  1 , IOLINE  )-SLU 

C  WRITE ! 6 , 34 )  I ♦ 1 . IOL I NE . OUT! I ♦ 1 , IOL INE  ) 

1-0 

I0LINE-I0LINE*1 
GO  TO  100 
ENDIF 

BYTE! 1 ) -B I NP UT( IX  ) 

OUT! 1 , IOLINE )-IAND!NOT! BYTES ) , ^TT'O) 

C  WR ITEl 6 , 34 )  I , IOL INE , OUT! I . IOL INE > 

34  FORMAT! IX, 13, IX. 13, 2X, 06) 

100  CONTINUE 

RETURN 
END 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

THIS  PROGRAM  READS  THE  DI SKSIMAGE S : CAVA] IMAGE S . DAT  FILE  AND  DISPLAYS 
THE  IMAGE  ON  THE  GRINNELL  A  FRAME  AT  A  TIME. 

THIS  IS  THE  COMPACT  IMAGE  FORMAT  USED  WHEN  TRYING  TO  OUTPUT  THE  AVA 
IMAGE  AS  FAST  AS  POSSIBLE. 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
EXTERNAL  IOSWR I TE VBLX . IOSRE ADV8LK . MI TL S 1 
INTEGER* 2  BUF<  20* ) . I  SETUP! M ) ,SLU. IOSBf 4 ) 

INTEGER  S YSSASS 1 GN ,  SYSSQIOW,  CHAN, SYS SO 10, SYSSWAITFR 

INTEGER  SYSSGETMSG , MSGLEN , 1  STATUS 

INTEGER'2  OUT <513, 480  )  , X , Y 

BYTE  BOUT ( 492480 ). B YTE ( 2 ) , I IMAGEB! 4 ) 

INTEGER*2  BYTES 
INTEGER*2  OUTPUT ,  I N I T<  4  ) 

INTEGER*2  INPUT! 16384) 

BYTE  BINPUT! 32768>,BLINES<512,64) 

INTEGER  AVACSR , AVAACR 
I NTEGE R*2  ISETUP2(2).ISETUP3(2> 

CHARACTER  *80  MSCBUF 
CHARACTE  R*60  TITLE , FNAME 
EQUIVALENCE (8UF( 1  ),ISETUP< 1  )> 

EQUIVALENCE! B INPUT. INPUT) 

EOU I  VALENCE (BOUT. OUT). (B YTE. B YTES >,! B INPUT , BL INES > 

COMMON/PRACHAN/ 1  DISK 

DATA  I  SETUP/ ' 1 20040 ' 0 , ’140001 '0, ‘ 121000’ 0, ’ 107777 ’0. ’ 17777 ’0. 

1  ’24061 ’0, ’ 26002 ’ 0 , ’ 30000 ’ 0 ,’ 44000 ’ 0 , ’ 64777 ’0, ’ 120000’ 0. 

2  ’50001 ’0, ’70777’O, '54000’O/ 

DATA  ISETUP2/’64777’0, ’ 44000 ’ 0/ 

DATA  I SETUP3/ ’ 64776 ’ 0 , ‘44000’O/ 

I  -  SYSSASSIGN! ’GRA0’ .CHAN, , ) 

IF!. NOT.  DTYPE  *,’  ERROR  IN  GRINNELL  CHANNEL  ASSIGN’ 
ISTATUS-SVSSASSIGN! ’AVA 0’ , ITCHAN, , ) 

IF!  . NOT . ISTATUS  1TYPE  *.’  ERROR  IN  AVA  CHANNEL  ASSIGN’ 

AVACSR-0 
AVAACR-’ 415 ’0 

K  -  SYSSQIOW! XVAL( 1 >, XVAL < CHAN >, XVAL ( XL OC < IOSWRITEVBLK ) ) , IOSB, , , 

1 BUF ( 1 ) ,XVAL!28  ),,,,) 
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TITLE-'  READ  DISK  AND  WRITE  TO  GRINNELL  TIME' 

NIMAGES-1 

INSZ-NIMAGES-S13 

F  NAME  -  1 D I S  K SA VA : C A VA 1 1 MAG  £  S . DA  T ‘ 

OPEN! UN  IT- 30, NAME -FNAME , TYPE- ‘ UNKNOWN ' . 

1  FORM-' UNFORMATTED' . IN ITIALS IZE-INSZ . USEROPEN-MITLS1 . 
2RECORDTVPE-’ FIXED' , RECORD SIZE -409 6 ) 

IEVFO-4 

V-6 

X-0 

TYPE  *, 'ENTER  STARTING  IMAGE  NUMBER  DESIRED' 

ACCEPT-. IBLOCK 

I F I IBLOCK. EO. 1  1THEN 

IBLOCK-1 

I STARTI - 1 

ELSE 

istarti«i block 

I  BLOCK-1 ♦( 480*1 IBLOCK-1 ) ) 

C  480  BLOCKS  CONTAINS  ONE  FULL  IMAGE  OR  TWO  FIELDS 

ENDIF 

TYPE-, 'ENTER  IMAGE  INCREMENT' 

ACCEPT*. IBLOCKI 
ICOUNT-0 

C  CALL  TIMRB 

TYPE  *, 'ENTER  NUMBER  OF  IMAGES  TO  DISPLAY' 

ACCEPT*. IFIELDS 
C  TYPE  *, IFIELDS 

IFIELOS-IFIELDS-8 

I  I F < I COUNT . EQ. 3 . OR . I COUNT. EQ. 7 )THEN 

NBYTES-24576 
ELSE 

NBYTES-32768 

ENDIF 

I  STATUS -SYSSO I OWI  XVALI I ) , XVALI IDISK ) .XVALI XLOCI IOSREADVBLK  >  > , 

1 10SB  ,  .  , 

IB  INPUT! I ). XVAL I NBYTES), XVAL I IBLOCK),,,  ) 

IF<  . NOT . I  STATUS  )TYPE  -,'QIO  PARAMETER  ERROR  ON  DISK  READ' 

IF ( . NOT . IOS8< 1 ) )TVPE  -,'I/0  ERROR  IN  DISK  INPUT' 

C  TYPE  *,' IBLOCK-' .IBLOCK 

IF ( I COUNT . EQ . 3 . OR . I COUNT . EQ . 7  )THEN 
IBL0CK-IBL0CK+48 
NUMB-24576 
ELSE 

NUMB-32768 
IBLOCK- IBLOCK-64 
ENDIF 

ISTATUS-SYSSQIOWI XVALI 1 ),XVAL( ITCHAN  > , XVAL ( XLOCI IOSREADVBLK) ) , 
1IOSB, , , 

1  INPUT, XVALI NBYTES), XVALI X ) , XVAL I Y ) .XVALI AVACSR ) , XVAL I AVAACR  )  ) 
1  INPUT, XVAL I  30720 ) , XVAL IX), XVAL I Y ) , XVAL I AVACSR ) , XVAL I AVAACR  )  ) 

I F I AVACSR . EQ . 0 ) AVACSR- 1 

IF! .NOT. ISTATUS.OR. .NOT. IOSB! I  )  )GO  TO  57 

C  WRITE  (4,54  >B INPUT 

54  FORMAT! IX. 161 IX, 03)  ) 
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IF  ! ICOUNT. EQ.01THEN 
DO  1-2,12 

WRITE  !6,155>!BLINESI0.I).J-8,16) 

ENODO 

END1F 

55  FORMAT! IX, 10! IX, 03 >> 

89  CALL  BUFFCNVT! NUMB, B INPUT, OUT, I COUNT) 

TYPE  * , ( OUT! I. I ). 1-1,20) 

TYPE  -.'NUMBER  OF  LINES  TO  OUTPUT- ‘ , IOLI NE 
IF! ICOUNT. EQ . 7  ITHEN 

X  »  SYSSQIOW! XVAL ( 1 > .XVAL ! CHAN  ), XVAL! XLOC! IOSVRITEVBLK ) ) , IOSB , , , 
1ISETUP2! 1  >,XVAL! 4), .  ,  ,  ) 

DO  IQIO-1,7 

IADDR-1+165534*! IQIO-1  )  ) 

ISTATUS  -  SYSSQIOW! XVAL ! 1 ) , XVAL! CHAN  ) , 

1XVAL ( XLOC! IOSVRITEVBLK)  ), IOSB. . , 

1  BOUT ! IADDR) .XVAL! 65534  ),,,,) 

ENDDO 

IADDR- 1*< 65534-1  IQIO-1  )  ) 

ISTATUS  -  SYSSQIOW! XVAL! 1 ), XVAL! CHAN > , 

1 XVAL ! XLOC! IOSVRITEVBLK )), IOSB , .  , 

1  BOUT ! IADDR), XVAL! 33742), . , ,  ) 

END  I F 

IF! .NOT. ISTATUS. OR. .NOT. IOSB! 1  )  )G0  TO  57 
Y-Y+32 

ICOUNT-ICOUNT-1 
IF! ICOUNT. EQ.4JTHEN 

K  -  SYSSQIOW!  XVAL!  1  )  .XVAL!  CHAN  )  .XVAL!  XLOC!  IOSVRITt  'BLK  )  > ,  IOSB  ,  ,  , 
1ISETUP3! I),XVAL<4>, ,  , ,  ) 

Y - ' 206 ' 0 

X-0 

ENDIF 

IF!  ICOUNT. £0. 8) THEN 
I1MAGEB! 1 >-27 
1 1 MAGE B! 2  )-89 
I IMAGEB! 3  )  —  5 5 
I  IMAGES! 4  )-40 

WRITE ( 6 , 77 ) I IMAGEB , I START I 

7  FORMAT! 1H-.4A1 ,' IMAGE  NUMBER', 15,  '  DISPLAYED  ON  THE  GRINNELL  NOW.' 

ICOUNr-0 

I  START  I - 1  START  I ♦ I  BLOCK I 
I  BLOCK- 1  BLOCK-! 480-! IBLOCKI-1  )  ) 

480  BLOCKS  CONTAINS  ONE  FULL  IMAGE  OR  TWO  FIELDS 

CALL  TIMRE 

CALL  HEADER! TITLE  ) 

STOP  'IMAGE  READ  IN  AND  DISPLAYED  ON  GRINNELL* 

Y-6 

ENDIF 

IFIELDS-IFIELDS-1 
IF! IF 1ELDS . EQ .0 )STOP 
GO  TO  1 

57  CONTINUE 

I  STATUS- SYSSGETMSG  ! XVAL! ISTATUS ) ,  MSGLEN,  MSGBUF , ,  ) 

TYPE  *,'  ISTATUS-' .ISTATUS, '  IOSB! I >«  '  ,  IOSB!  1  ) 


39 


no 


CAVA.MAXDISK1MDT0GRN 


TYPE  ISTATUS-' .ISTATUS. *  IOSB! t )- • , IOSB< 1 ) 

IF ( . NOT . I  STATUS  )  TYPE  •, ‘ERROR  IN  CALL  TO  SGETMSG 1 
TYPE  * ■ ’ QIO  PARAMETER  STATUS : ‘ , MSGBUF 
MSG8UF-'  ' 

I  STATUS -SYS SGETMSG  ( XVAL < I OSB < 1 > > .  MSGLEN,  MSGBUF,.) 

IF( .NOT. ISTATUS >  TYPE  », ‘ERROR  IN  CALL  TO  SGETMSG ‘ 

TYPE  »,M/0  STATUS: ‘ .MSGBUF 
STOP 

CU  FORMAT! IX. ’ INPUT-' ,06,2X, ‘ IOSB-' .06 . 2X .06 . 2X , 06 . 2X .06  ) 

K  -  SYSSQIOW! XVAL ( 1 ). XVAL ( CHAN ). XVAL ( XLOC (  IOSWRITEVBLK ) ) , IOSB,  . . 
1 ISETUP3,XVAL<  4  )....) 

END 

SUBROUTINE  BUFFCNVT! NUMB . B I NPUT , OUT . ICOUNT  > 

BYTE  BINPUT! 1  )  .BYTE! 2  ) 

INTEGER*2  OUT! 51 3 . 1) . BYTES , SLU 
EQUIVALENCE! BYTES. BYTE ) 

DATA  SLU/ ' 3401 1 ‘0/ 

1-5 

IF! ICOUNT. EQ.5M0LINE-1 
IF! ICOUNT. EQ. 1  MOLINE -129 
IF! ICOUNT. EQ.2JIOLINE-257 
IF! ICOUNT. EQ.31I0LINE-385 
IF! ICOUNT. EQ.4JI0LINE-2 
IF! ICOUNT. EQ. 5  MOLINE -135 
IF!  ICOUNT. EQ.6MOLINE-258 
IF!  ICOUNT. E0.7M0LINE-386 

C  TYPE  *.  MOLINE-' MOLINE,  ICOUNT 

DO  155  I X- 1 , NUMB 
1-1*1 

IF! I.EQ.5121THEN 
BYTE! 1  l-BINPUT! IX) 

OUT! I , IOLINE l-IAND! NOT! BYTES ) . ‘377'0> 

C  WRITE ! 6 , 34 )  I . IOL I NE , OUT! I , IOL I NE ) 

OUT! 1*1 . IOLINE  )*SLU 

C  WRITE ! 6 , 34  )  I  + 1 , IOL I NE . OUT! I ♦ 1 . IOL I NE  ) 

1-5 

IOLINE-IOLINE+2 
GO  TO  155 
ENDIF 

BYTE! 1 >-BINPUT! IX) 

OUT! I , IOLINE )-IAND! NOT! BYTES), '377‘0> 

C  WRITE  I  6 , 34 )  I , IOL INE .OUT! I . IOL INE ) 

34  FORMAT! IX, 13, IX. 13, 2X, 06 > 

155  CONTINUE 

RETURN 
END 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

THIS  PROGRAM  READS  THE  DISKSIMAGES: CAVA) IMAGES . DAT  FILE  AND  DISPLAYS 
THE  FIELDS  ON  THE  GRINNELL  ONE  AT  A  TIME. 

THIS  IS  THE  COMPACT  IMAGE  FORMAT  USED  WHEN  TRYING  TO  OUTPUT  THE  AVA 
IMAGE  AS  FAST  AS  POSSIBLE. 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

EXTERNAL  IOSWR ITE VBL K , IOSREAOVBL K . MI TL S 1 
I NTEGE  R*2  BUF<  200) . I  SETUP ( 14 ) . SLU , IOSB<  4  > 

INTEGER  SYSSASSIGN,  SYSSQIOV,  CHAN , S YSSQ 1 0 , S YSSUA ITFR 

INTEGER  SYSSGETMSG .MSGLEN , ISTATUS 

INTEGER*2  0UT< 5 1 3 . 64  ) . X  ,  Y 

BYTE  BOUT! 65664  > , BYTE (2), I  IMAGE B<  4  > 

I NTEGE  R*2  BYTES 
INTEGER*2  OUTPUT, INIT( 4 > 

I NTEGER*2  INPUT! 163B4) 

BYTE  B I NPUT ! 32768 1 
INTEGER  A VAC SR , AVAACR 
INTEGER'2  I SETUP2 i 2 > , I  SETUP  3! 2  ) 

CHARACTER  *80  MSGBUF 
CHARACTE R*60  TITLE. FNAME 
EQUIVALENCE ( BUF  < 1  ), I  SETUP! 1  )  ) 

EQUIVALENCE! BINPUT, INPUT) 

EQUIVALENCE! BOUT, OUT ) , ( BYTE .BYTES  ) 

COMMON /P  RAC HAN/ I D I SK 

DATA  ISETUP/ ' 120040  0. ' 140001 '0. ' 121000*0, *  107777*0, *17777*0, 

1  *24071 *0, *26002*0, *30000*0, *44000*0, *64777*0, ' 120000*0, 

2  *50001 *0, *70776*0, *S4000'O/ 

DATA  ISETUP2/'64777*0, *44000*0/ 

DATA  ISETUP3/ '64777*0, *44000*0/ 

I  *  SYSSASSIGN!  'GRA0* .CHAN, ,  ) 

IF!. NOT.  I (TYPE  *,'  ERROR  IN  GRINNELL  CHANNEL  ASSIGN* 
ISTATUS»SYSSASSIGN! ' AVA0 ' , ITCHAN, , ) 

IF! .NOT. ISTATUS1TYPE  *,*  ERROR  IN  AVA  CHANNEL  ASSIGN* 

AVACSR-0 
AVAACR” *415*0 

K  -  S YSSQIOW! XVAL < 1 ) , XVAL < CHAN > , XVAL < XLOC! I0SWR1TEVBLK > ) , IOSB, , , 

1 BUF ( 1 ), XVAL! 28  ),,,,) 
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TITLE-'  READ  DISK  AND  WRITE  TO  GRINNELL  TIME' 

NIMAGES-1 

INSZ-NIMAGES-513 

F NAME *  '  0 1 SK SA VA :  C A VA 3  I MAGE  S . DA  T ' 

OPEN< UNIT-30, NAME-FNAME , TYPE- ' UNKNOWN ' , 

1FORM-' UNFORMATTED' . I N I TIALS IZE- INSZ . USE ROPEN-MI TL S 1 , 
2RECORDTVPE-1 FIXED' . RECORDSIZE-4096 ) 

IEVFO-4 

Y-6 

X-0 

TYPE  », 'ENTER  STARTING  IMAGE  NUMBER  DESIRED' 

ACCEPT-, IBLOCK 

IF  < IBLOCK. EQ. 1 (THEN 

I  BLOCK- 1 

I  START  I - 1 

ELSE 

I STARTI- IBLOCK 
1BLOCK-1-C2 40* < IBLOCK-1  )  ) 

END  I F 

TYPE*. 'ENTER  FIELO  INCREMENT' 

ACCEPT-, IBLOCKI 
ICOUNT-0 

C  CALL  TIMRB 

TYPE  -, 'ENTER  NUMBER  OF  IMAGES  TO  DISPLAY' 

ACCEPT*, IFIELDS 
C  TYPE  -.IFIELDS 

IFIELDS-IFIELOS-8 

1  IF ( I COUNT . EQ . 3 .OR . I COUNT . EQ. 7 (THEN 

NBYTES-24576 
ELSE 

NB YTE  S-32768 
ENDIF 

I STATUS-SYSSQIOW! XVAL! IEVFO) , XVAL! IDISIO  , XVAL! XLOC! IOSREADVBLK >> . 
110SB, ,, 

IB  INPUT! I ( , XVAL( MBYTES ( ,XVAL< IBLOCK  ) , , , > 

I F ( I COUNT . EO . 3 . OR . ICOUNT . EQ . 7 (THEN 

I  BLOCK- 1 BLOCK -48 

NUMB-24S76 

ELSE 

NUMB-32768 
IBLOCK-I BLOCK-64 
ENDIF 

I  STATUS -SYSSQ 1 0<  XVAL  < 1 (,XVAL( ITCHAN ( , XVAL (XLOC! IOSREADVBLK >1 , 
1IOSB,  , . 

II NPUT . XVAL ( MBYTES  I , XVAL ( X ) , XVAL  <  Y ) , XVAL  <  AVACSR  ! . XVAL  < AVAACR ) > 

1  INPUT , XVAL ( 30720 ) , XVAL ( X 1 , XVAL ( Y ) , XVAL ( AVACSR ( , X VAL ( AVAACR  )  ) 

I F  <  AVACSR . EQ .0 (AVACSR- 1 
IF! .NOT. ISTATUS.OR. .NOT. IOSB( 1 ( (GO  TO  57 

C  WRITE  ! 4 , 54  >B INPUT 

54  FORMAT! 1X,16!1X,03)( 

CALL  BUFFCNVT! NUMB , BINPUT .OUT  > 

C  TYPE  «, 'NUMBER  OF  LINES  TO  OUTPUT- IOL INE 

IF! ICOUNT. EQ. 3. OR. ICOUNT. EQ. 7 (THEN 
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IGBYTES-24624 

ELSE 

IGBYTES-32832 

ENDIF 

I  STATUS  -  SYSSQ IOC XVAL  C 1 ) , XVAL! CHAN  ) , 

1XVALC XLOC( IOSWRITEVBLK ) ) , IOSB, , , 

I  BOUT C 1 ) , XVAL  C IGBVTES  > , , , . ) 

ISTATUS  -  SYSSQ I 0( XVAl( l ) , XVAL (CHAN ) , 

1XVAL ( XLOCC IOSWRITEVBLK)  > , IOSB. . , 

IBOUT  < IGBYTES+ 1 ) ,XVAL( IGBVTES >,,,,) 

C  IF< .NOT. ISTATUS. OR. .NOT. IOSB< 1 > >GO  TO  57 

Y-Y+32 

I COUNT  « I COUNT  + 1 
IF( I COUNT . EQ . 4 1THEN 
I IMAGEBC 1 1-27 
I IMAGE8 ( 2 )-89 
I IMAGEBC  3 ) — 55 

I I  MAGE  B ( 4 ) ”40 

WRITE(6,77)I IMAGES . I  START  I 

K  -  SYSSQIOCXVALC 1 ),XVAL(CHAN >,XVAL(XLOC< IOSWRITEVBLK)  ). IOSB, . , 

1 ISETUP3C 1 ) ,XVAL( 4  ),,,,) 

I  START  I - 1  START  I ♦ I  BLOCK  I 

Y« ' 206 ' 0 

X-0 

ENDIF 

I F  < ICOUNT . EQ . 8  1THEN 
I IMAGEBC 1  )«27 
I IMAGEBC  2 )-89 
I IMAGEBC  3 )-55 
I IMAGEBC  4 ) “40 

WRITE! 6.77 ) IIMAGEB . ISTARTI 

77  FORMAT! 1H+.4A1, 'FIELD  NUMBER', 15.  '  DISPLAYED  ON  THE  GRINNELL  NOW.') 

ICOUNT-0 

ISTART I-I START l*IBLOCKI 
IBLOCK-IBLOCK+C  240*< IBLOCKI-l ) ) 

K  -  SYSSQIOCXVALC1),XVAL(CHAN>.XVALISLOCUOSVRITEVBLK>),IOSB,,. 

1 ISETUP3C 1  ) , XVAL  C  4  ) , , . .  ) 

CALL  TIMRE 
CALL  HEADER! TITLE  ) 

STOP  'IMAGE  READ  IN  AND  DISPLAYED  ON  GRINNELL' 

Y-6 
ENDIF 

IFIELDS-IFIELDS-1 
IF! IF IEL0S . EQ.0ISTOP 
GO  TO  1 
57  CONTINUE 

I  STATUS -SYS SGETMSG  C XVAL! ISTATUS  ) ,  MSGLEN.  MSGBUF , .  ) 

TYPE  ISTATUS- ’. ISTATUS, '  IOSBC 1 , IOSB ( 1 > 

TYPE  *.'  ISTATUS-' , ISTATUS, '  IOSBC 1  )-',  IOSBC 1  ) 

IFC  .NOT. ISTATUS  )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  * , ' QIO  PARAMETER  STATUS .MSGBUF 
MSGBUF-'  ' 

ISTATUS-SYSSGETMSG  C XVAL ( IOSBC 1  )) ,  MSGLEN,  MSGBUF ,. > 

IFC .NOT. ISTATUS )  TYPE  *. 'ERROR  IN  CALL  TO  SGETMSG' 
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TYPE  *.'1/0  STATUS: 1 .MSGBUF 
STOP 

Cll  FORMAT ( IX. ' INPUT- • ,06.2X. ' I0S8-'  . 06 , 2X . 06 . 2X , 06 , 2X , 06  ) 

K  -  S V SSQ 1 0W( XVAL ( 1 ) , XVAL < CHAN  > . XVAL ( XLOC <  I0SVR1TEVBLK ) ) . IOSB, , 
1 1  SETUP 3 , XVAl ( 4 ) , , , ,  > 

END 

SUBROUTINE  BUFFCNVTI NUMB . 3  INPUT. OUT ) 

BYTE  SINPUTt 1 >,BVTE<2> 

INTECER-2  OUT1513.1  ), BYTES, SLU 
E GUI VALE NC£(8YTES, BYTE  > 

DATA  SLU/ '34011  0/ 

1-0 

IOLINE-1 

DO  100  I X- 1 . NUMB 
1-1*1 

IF  < I . EO. SI  2 )THEN 
BYTE ( 1  )  -B I NP  UT( IX) 

OUT ( I . IOLINE  ) • I AND! NOT! BYTES), ' 377 '0) 

C  WRITE ( 6 , 34  )  I , IOLINE, OUT! I, IOLINE  ) 

OUT ( 1  +  1 , IOLINE  >-SLU 

C  WRITE (6,34)  I  + 1 , IOLINE .OUT! 1*1, IOLINE) 

1-0 

IOLINE-IOLINE+1 
GO  TO  100 
END  IF 

BYTE  < 1 >-BINPUT( IX ) 

OUT ( I , IOLINE  )- IAND(NOT( BYTES ) . '377'0) 

C  WRITE! 6,34)  I . IOL I NE , OUT! I . 10L I NE ) 

34  FORMAT! IX, 13, IX, 13, 2X, 06) 

100  CONTINUE 

RETURN 
END 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

THIS  PROGRAM  READS  THE  DI SKSIMAGES : CAVA I  IMAGES . DAT  FILE  AND  GENERATES 
NATO  FORMATTED  DISK  FILES  FOR  AS  MANY  FILES  AS  SPECIFIED  BY  THE  USER. 

IMAGES. DAT  IS  THE  COMPACT  IMAGE  FORMAT. 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

EXTERNAL  IOSWRITEVBLK , IOSREADVBLK ,MITLS 1 .MITLS2 
INCLUDE  ' D I SKSUSERD I SK : CSUB IMAGE  I  DSP . CMN/NOL I  ST  * 

INCLUDE  'DISKSUSERDISK: C SUB  IMAGE  1 1 OTBL . CMN/NOL I  ST ' 

INCLUDE  ‘DISKSUSERDISK: CSUB IMAGE  I GRMAP . CMN/NOL I  ST ' 

INCLUDE  ‘DISKSUSERDISK: CSUB IMAGE  I IMGTBL . CMN/NOL I  ST ‘ 

INCLUDE  ‘DISKSUSERDISK: CSUB IMAGE  1 1 MGNAME . CMN/ NOL I  ST ' 

INCLUDE  'DISKSUSERDISK: I  SUB  1  MAGE  I SUBCOM . CMN/NOL I  ST ' 

INTEGER*2  BUF ( 200 ) . I  SETUP ( 1 4  )  , SL U , I OSB ! 4  > 

INTEGER  SYSSASSIGN,  SYSSQIOW,  CHAN , SYSSQ 10 , SYSSWAITFR 
INTEGER  SYSSGETMSG , MSGLEN , ISTATUS 
INTEGERM  LIBSFREEVM.L I BSGETVM , SYSSDASSGN 
INTEG£R*2  OUT! S 1 3 , 64  ) , X , Y 
BYTE  BOUT(65fi64),BYTE(2) 

INTEGER*2  BYTES 
INTEGER»2  OUTPUT . I N IT( 4  ) 

I NTEGER*2  INPUT! 16384) 

BYTE  BINPUTI 32768 ) 

INTEGER  AVACSR , AVAACR , OTSSCVTLTI 
INTEGER*2  ISETUP2! 2 ) , ISETUP3! 2  ) 

C  CHARACTER  -80  MSGBUF , NAMNUM*4 . D ISKSPEC* 1 4 

CHARACTER  *80  MSGBUF , NAMNUM*4 . DI SKSPEC*22 
CHARACTER*60  TITLE , FNAME , FNAM2 
EQUIVALENCE! BUF ( 1  ) , I  SETUP! 1  )  ) 

EQUIVALENCE! 8  INPUT, INPUT) 

EQUIVALENCE! BOUT, OUT ) , ( BYTE .BYTES ) 

COMMON/PRACHAN2/IDISK2 

DATA  I  SETUP / ' 1 20040 ‘ 0, ’ 140001 '0, ' 1 21000' 0, ' 107777 ‘0, ' 17777 ‘0. 

1  '24061 '0, ' 26002 '0, ' 30000 ' 0, '44000'O, '64777‘0, ' 120000'O, 

2  '50001 ‘0, ‘70776 '0, '54000' 0/ 

DATA  ISETUP2/'64777’0, ' 44000 ' 0/ 

DATA  ISETUP3/'64776'0, ' 44000 ' 0/ 

DATA  IF IRST / 1 / 
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I-SYSSASSIGN< 'TT1 .IVTC, ,  ) 

IF< .NOT. I >TYPE  *, 'ERROR  IN  TT  CHANNEL!.  ASSIGN1 
I  -  SYSSASSIGNI ‘GRA01 ,CHAN, , > 

I F  <  . NOT .  I >TYPE  ERROR  IN  GRINNELL  CHANNEL  ASSIGN1 
ISTATUS-SYSSASSIGN< "AVA 01 , ITCHAN , , > 

IF( .NOT. ISTATUSITYPE  *.*  ERROR  IN  AVA  CHANNEL  ASSIGN1 

AVACSR-0 

AVAACR- 1 4 15 1 0 

K  -  SYSSQIOWI XVAL< 1 ), XVAL < CHAN >. XVAL < XLOC ( I0SWR1TEVBLK  ))  . IOSB, , . 
18UF ( 1  ) , XVAL ( 28  ) , . . ,  ) 

TITLE-1  READ  DISK  AND  WRITE  TO  GRINNELL  TIME1 
NIMAGES-1 
I NSZ-N IMAGES*5 1 3 

F NAME  » 1 D I SK SAVA : CAVA1 1 MAG E  S . DAT 1 
OPEN! UN IT-30.NAME-FNAME .TYPE- 'UNKNOWN1 , 

1FORM-1 UNFORMATTED1 , IN ITIALS IZE- INSZ . USEROPEN-MITLS2 . 

ZRECOROTYPE-1 FIXED1 , RECORDS IZE -4096 ) 

IEVFO-4 

Y-6 

X-0 

TYPE  '.'ENTER  STARTING  IMAGE  NUMBER  DESIRED1 

ACCEPT*. IBLOCK 

I F ( IBLOCK.EQ. I  )THEN 

I  BLOCK- 1 

ELSE 

I  BLOCK-1 ♦( 480* ( IBLOCK-1  )  ) 

END  1 F 

ICOUNT-0 

C  CALL  TIMRB 

TYPE  * , 1  ENTER  NUMBER  IMAGES  TO  STORE1 
ACCEPT*, IF IELDS 

IFIELDS-IFIELDS*8  (CONVERT  IMAGES  TO  TRANSFERS 

I  I F < I COUNT . EO . 3 . OR . ICOUNT . EQ . 7  )THEN 

NBYTES-Z4576 
ELSE 

NBYTES-3Z768 

ENDIF 

I STATUS-SYSSQIOWI XVAL ( IEVFO), XVAL ( I DI SK2  ) , XVAL ( XLOC ( IOSREADVBLK I  > , 
1 IOSB , , , 

1 B I NPUT ( 1 ) , XVAL ( NB YTES ) , XVAL ( IBLOCK),, ,  ) 

IF ( ICOUNT. EQ. 3 . OR . ICOUNT. EQ . 7  >THEN 

IBLOCK-IBLOCK+48 

NUMB-Z4576 

ELSE 

NUMB-32768 
IBLOCK-IBLOCK+64 
ENDIF 

I STATUS-S  YSS<JIO<XVAL<  1  >,XVAl<  ITCHAN  ),  XVAL  <  XLOC<  IOSREADVBLK)  ) , 

I IOSB, , , 

I I  NPUT , XVAL  (MBYTES ) , XVAL  <  X ) , XVAL  <  Y ) , XVAL ( AVACSR ) , XVAL  <  AVAACR  )  ) 

1 1 NP UT , XVAL  <  30720 ) , XVAL ( X ) , XVAL  <  Y ) , XVAL  <  AVACSR  ) , X VAL  <  AVAACR  )  ) 

IF < AVACSR. EQ.01AVACSR-1 
IF< .NOT. ISTATUS.OR. .NOT. IOSB< 1 ))G0  TO  57 

C  WRITE  <  4 , 54  )BINPUT 
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54  FORMAT ( IX, 1 S (  IX, 03)) 

CALL  BUFFCNVT< NUMB, BINPOT, OUT) 

C  TYPE  * , ’ NUMBER  OF  LINES  TO  OUTPUT- 1 , IOL I NE 

I F ( ICOUNT.EQ. 3. OR. IC0UNT.EQ.7 )THEN 
IGBYTES-24624 
ELSE 

IGBYTES-32832 

ENOIF 

ISTATUS  -  SYSSQ I0( XVAL  ( 1  ) , XVAL ( CHAN  > , 

1 XVAL  ( XLOC < IOSWRITEVBLK  > ) , IOSB, , , 

1  BOUT ( 1  ) , XVAL ( IGBYTES), . , ,  ) 

ISTATUS  -  SYSSQ 1 0( XVAL ( 1  ), XVAL  <  CHAN  > , 

1 XVAL ( XLOC ( IOSWRITEVBLK) ), IOSB, , . 

1  BOUT ( IGBYTES* 1  )  ,XVAL( IGBYTES  ),,,,  ) 

C  IF( .NOT. ISTATUS. OR. .NOT. IOSB( 1 > )G0  TO  57 

I F ( IFIRSTJTHEN 

TYPE  *, 'ENTER  DISK  NAME  AND  DIRECTORY.  ( DI SKSIMAGES : [WILLIAMS)  ) ' 
REAOt  5 , 6 )0 1 SKSPEC 
DISKSPEC-'DISKSIMAGES: [WILLIAMS! ' 

DISKSPEC-'DISKSAVA: CAVA! ' 

TYPE  '.'ENTER  FIRST  IMAGE  FILE  NAME.  (W00010000. IMG > ' 

READ! 5 , 6  1FNAM2 
FORMAT! A) 

FNAM«'SIMS00001  .  IMG* 

NAMNUM-F  NAM2 (2:5) 

FNAM-D I SKSP  EC/ /F  NAM2 
DECODE ( 4,101, NAMNUM ) I NAMNUM 
01  FORMAT (14) 

NCOL-512 

NROW-480 

ILEN-NROW 

IWD-NCOL 

IMGMAPC(3)«ILEN  1LENGTH  OF  IMAGE 
IMGMAPC! 4 ) - IWD  IWIDTH  OF  IMAGE 
IFIRST-0 
I  -  IWD 

NBYT«( I  +  l  )*ILEN*2 

I-L IBSGETVM! NBYT , IMGADR  ) 

IF<  .NOT. I  1TYPE  ERROR  IN  VIRTUAL  MEMORY  ASSIGNMENT  1' 

I  »  LIBSGETVMf 10000, HDR2ADR) 

I F ( . NOT .  I)  CALL  ERRSTOP( I , ‘ ERROR  GETTING  HDR2  VM ' , ' AVATODSK '  ) 
ENDIF 

HEAD! 8)-'  r  (ONE  CHARACTER  PER  CHANNEL 

HDR2LEN-576 

CURRENTNUMF  L -0 

CALL  ADDHDR2! XVAL ( HDR2ADR )  ) 

CALL  IMGTOD ISK(BINPUT,NUMB, XVAL ( IMGADR >, ICOUNT ) 

I F ( ICOUNT. EQ.71THEN 
C  FNAM- ' S IMS0000I . IMG ' 

I NAMNUM- I NAMNUM* 1 

ISTATUS-OTSSCVTLTI ( I NAMNUM, NAMNUM ,XVAL( 4 > , XVAL ( 4  ) , > 

I F  < .NOT. ISTATUS  )TYPE  * , ' CONVERS ION  ERROR  IN  FILE  NAME' 

FNAM2( 2 : 5  ) -NAMNUM 
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FNAM-DISKSPEC//FNAM2 

ENDIF 

Y-Y+32 

ICOUNT-I COUNT ♦ 1 
IF ( ICOUNT.EQ.4ITHEN 

K  -  SYSSQIO)  XVAL ( 1 ) , XVAL ( CHAN ) , XVAL ) XLOC) I OSWRITEVBLK  )  )  , I OSB , , 
1 1 S E T U P 3 ( 1 )  .XVAL) 4  >. ,  ,  .  ) 

Y-' 206'O 

X-0 

ENDIF 

I F ( ICOUNT.EQ.8 (THEN 

I  COUNT «0 

K  -  SYSSQIO)  XVAL  < 1 ) , XVAL ( CHAN ) , XVAL ( XLOC ( I OSWR ITE VBL  K  ) ) , IOSB , , 
1 1 SETUP2( 1  ) , XVAL ( 4  ) , , , ,  ) 

CALL  TIMRE 

CALL  HEADER) TITLE  ) 

STOP  'IMAGE  READ  IN  AND  DISPLAYED  ON  GRINNELL' 

Y-6 

ENDIF 

IFIELOS-IFIELDS-I 

IF( IFIELDS.EQ.0JSTOP  'ALL  IMAGES  WRITTEN  TO  DISK' 

GO  TO  I 

7  CONTINUE 

ISTATUS-SYSSGETMSG  ( XVAL < I  STATUS  ) ,  MSGLEN.  MSGBUF  ,  ,  ) 

TYPE  *,'  ISTATUS-' , ISTATUS, '  IOSB ( 1  ) - '  , 1 OSB (  1  ) 

TYPE  ISTATUS-' .ISTATUS, '  IOSB< 1 >- ‘ . I OSB ( 1) 

IF(  .NOT. ISTATUS  )  TYPE  * . 'ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  * , ' Q 10  PARAMETER  STATUS MSGBUF 
MSGBUF-'  ' 

I STATUS-SYS SGETMSG  ( XVAL< IOSB< 1  )  ) .  MSGLEN,  MSGBUF,,) 

I F  <  .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYFE  *,'I/0  STATUS: ' .MSGBUF 
STOP 

11  FORMAT) IX. ' INPUT-' ,06, 2X, ' I0S8-' .06 . 2X .06 . 2X , 06 , 2X . 06 ) 

K  -  SYSSQIOW! XVAL 1 1 ) , XVAL ) CHAN  > , XVAL ( XLOC ( I OSUR ITEVBLK  )  ) , IOSB , 

I I  SETUP 3 , XVAL ) 4  ) , , , ,  ) 

END 

SUBROUTINE  BUF FCNVT) NUMB , B I NPUT , OUT  ) 

BYTE  B I NPUT) 1  ) , BYTE ( 2  ) 

INTEGERS  OUT) 513. 1  ) , BYTES, SLU 
EQUIVALENCE) BYTES , BYTE  ) 

DATA  SLU/' 34011 '0/ 

1-0 

IOLINE-1 

DO  100  I X- 1 .NUMB 
1-1*1 

IF)  I . EQ. 512  )THEN 
BYTE) 1 (-BINPUT) IX ) 

OUT) I . IOLINE  )-BYTES 

C  WRITE) 6 , 34  )  I , IOL INE .OUT) I , IOL INE ) 

OUT) l  +  l  , IOLINE  )»SLU 

C  WRITE (6.34)  I  + 1 , IOL I NE , OUT) I ♦ 1 . IOL I NE  ) 

1-0 

IOLINE-IOLINE+1 
GO  TO  100 
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ENDIF 

BYTE ( 1  J-8INPUT! IX  ) 

OUT! I , IOLINE  l-IAND!  NOT!  BYTES), ’377‘0) 

C  WRITE (6,34)  I . IOLINE, OUT( I. IOLINE > 

34  FORMAT! IX, 13, IX, 13, 2X, 06 > 

IBB  CONTINUE 

RETURN 
END 

SUBROUTINE  IMGTOD I SK< BINPUT . NUMB , IMAGE , ICOUNT ) 
INCLUDE  1  D I SKIUSERD ISK :  CSUB  IMAGE  ]  DSP  .  C.1N/ NOL  I  ST  * 
INCLUDE  ' D ISKSUSERD ISK : I SUB  I  MAGE  I IOTBL .CMN/NOL 1ST ' 
INCLUDE  ' D I SKIUSERD I SK : CSUB IMAGE  1 GRMAP . CMN/ NOL I  ST ' 
INCLUDE  1 D ISKSUSERD I SK : CSUB IMAGE  I IMGTBL .CMN/NOL 1ST' 
INCLUDE  1 D I SKIUSERD I SK : CSUB IMAGE ) IMGNAME . CMN/NOL I  ST “ 
INCLUDE  •OISKIUSEROISIC:  CSUB IMAGE ) SUBCOM . CMN/NOL I  ST ' 
INTEGER*2  IMAGE < NCOL + 1 , NROW ) 

I NTEGER*4  IMGADR.SYSSASSIGN, IMGADR2 , SYSSGETMSG 
BYTE  BINPUT(l) 

INOEX-1 

I F <  ICOUNT. LE .3  )THEN 
I  START* 1 ♦ ( ICOUNT*128> 

I F ( ICOUNT. LE.2)IEND-ISTART*126 
IF  < ICOUNT. EQ.31IEND-ISTART+94 
DO  I « I  START , I E  ND , 2 
DO  0-1, NCOL 
INPUT-BINPUT! INDEX) 

IMAGE <0,1 ) • I AND( ' 377' 0. NOT! INPUT) ) 

C  IMAGE<0, I )-BINPUT< INDEX) 

I NDE  X- 1  NOE  X* 1 

ENDDO 

ENDDO 

ELSE 

ISTART-2+!  < ICOUNT-4  >*128  ) 

IF  < ICOUNT. LE.6)IEND-ISTART*126 
I F ( ICOUNT. EQ.71IEND-ISTART+94 
DO  I-ISTART, IEND.2 
DO  0-1 .NCOL 
INPUT-BINPUT< INDEX  ) 

I MAGE <  0 , I  )- IAND(  1 377*0, NOT! INPUT)  ) 

C  IMAGE  <  0,1  )-BINPUT( INDEX) 

I NDEX-I NDEX+ 1 

ENDDO 

ENDDO 

ENDIF 

ILEN-NROW 

IWO-NCOL 

C  TYPE*, 1 IWD  AND  ILEN  BEFORE  TODISK-' .IWD.ILEN 

IF< ICOUNT. EQ. 7)  CALL  TOD  I SK! IMAGE , IWD , I LEN > 

C  WRITE <  6 , 1 ) ICOUNT 

1  FORMAT! IX, 110) 

RETURN 

END 

SUBROUTINE  TOD  I SK! IMAGE , IWD , ILEN > 


UU  o  CM  O  O  OU 


CAVA . MAX  D I SK 1 MOSKTOF I L 


INCLUDE  '01SKSUSERDISK: C SUB  IMAGE  1 IMGTBL . CMN/NOL I  ST ' 
INCLUDE  ' D I SKSUSERD ISK : C SUB  IMAGE  I IMGNAME . CMN/NOL I  ST ' 
INCLUDE  ' D  I  SKSUSERD I SK : C SUB  IMAGE  I SUBCOM . CMN/NOL 1ST ' 
INCLUDE  1 DI SKSUSERD I SK : C SUBIMAGE  I AUTO IMG. CMN/NOL 1ST1 
INTEG£R*Z  IMAGE ( NCOL+ 1 ,NROW> .HDR2LEN 
INTEGER**  AUTOVRTSB 
CHARACTER* 10000  HDR2ADR 

CHARACTER'S  MONTH , DAY . VEAR«2 ,WD*8 , LEN*8 , TIMEA*8 

CHARACTER'S  IF IRST5 , ILAST4«4 . TNAME *9 

HDR2LEN-HDR2LEN 

TYPE  *, ' HDR2LEN 1  ,  HDRZLEN 

TYPE  * , ' HDRZLEN  ' . HDR2LEN 

CALL  CNVRT < XVAL ( HDR2ADR ) , HDRZLEN , HDRZADR ) 

TYPE  '.HEAD 

CALL  I  DATE < I MONTH , I  DAY , I  YEAR ) 

ENCODE! 3. 200, MONTH) I  MONTH 
ENCODE (3, 200, DAY  ) I  DAY 
00  FORMAT! 13) 

ENCODE! 2, 100, YEAR  )  I  YEAR 
HEAD! 3>«'OLDFAAD  * 

HEAD! 1 ) *  * USAMI COM ‘ 

HEAD! 2 )-YEAR//MONTH//DAY 
00  FORMAT! 12) 

ENCODE! 8.200, WD )IU0 
HEAD!  1 1  >  (  6  •'  8  )  “WD !  1:3) 

ENCODE ! 8 , 200 ,LEN)ILEN 
HEAD!  12X6:8  )“LEN!  1:3) 

TYPE  '.HEAD 

IBRACKET-INDEX!FNAM, '1  '  ) 

I  PER  1 00* INDEX! FNAM ,  '  .  ‘  ) 

TNAME “F NAM! I  PE R IOD-9 : 1  PERIOD-1 ) 

I  BRACKET” I  BRACKET 

IF! IPERIOD-10.LT. I BRACKET >THEN 

I2ER0-ABS! IPERIOD-10) 

TNAME! I : IZERO )“ '  ' 

ENDIF 

I  LAST 4-TNAME  <  6 : 9  > 

IFIRST5-TNAME!  1:5) 

HDR2ADR! 1 : 8  >«  ■FN«X0000• 

HDR2ADR! 11:18)“' 0000 .IMG' 

HDR2ADR! 4:8)“IFIRST5 
HDR2APR! 1 1 : 14  J-ILAST4 
HDR2ADR! 51 : 58 )• ' SLREDALA ' 

HDR2A0R<41:48)“' LT000000' 

H0i'2ADR!  31  : 38  )•  '  RT000000' 

HDR2ADR! 21:28)“' DT000000 ' 

HDR2ADR! 35 1 : 358 ) »MI L I  SECONDS 
CALL  TIME! TIMEA  > 

HDR2ADR! 43:44 ) -TIME A! 1:2) 

HDR2ADR! 45 : 46 )-TIMEA( 4 : 5 ) 

HDR2ADR! 47 : 48 ) -TIMEA!  7:8) 

HDR2ADR! 33 : 38 )-HDR2ADR! 43:48) 

HDR2ADR! 23 : 28 )-HDR2ADR(  43:48) 

H0R2ADR!23:28)-HEAD(2)I  1 :  2  >//HEAD<  2  )!  4  : 5  >//HEAD!  2  )(  7  : 8  ) 
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CALL  UNCNVRT ( XVALI HDR2A0R ) ,  HDR2LEN , HDR2ADR ) 

TYPE*. * H0R2 ' ,H0R2ADR< 1 : H0R2LEN  ) 

TYPE''.'  WRITING  ’ ,FNAM<1:40) 

IHD2-HDR2LEN  IAUTOWRTSB  ROUTINE  NEEDS  THIS  DEFINED  THROUGH  AUTOIMG .CMN 
ISTATUS»AUTOWRTSB( 1 , 1 , ILEN , IWO . IMAGE , XVAL <  HDR2ADR ) ) 

I F< . NOT. I  STATUS ) TYPE  »,'ERROR  IN  AUTOWRTSB  IMAGE  TO  DISK1 

RETURN 

END 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

THIS  PROGRAM  READS  THE  D ISKSIMAGES : CAVA! IMAGE S . DAT  FILE  AND  GENERATES 
NATO  FORMATTED  DISK  FILES  FOR  AS  MANY  FILES  AS  SPECIFIED  BY  THE  USER. 

IMAGES.DAT  IS  THE  COMPACT  IMAGE  FORMAT. 

THIS  PROGRAM  IS  DIFFERENT  FROM  MDSKTOFIL  IN  THAT  IT  NEEDS 
OISKSAVA : CAVA I IRIGS.DAT  IN  CORRECTED  FORM.  THE  IRIGS  IN  I  RIGS. DAT 
ARE  PUT  IN  THE  RTXXYYZZ  SECTION  IN  HEADER  TWO  IN  THE  CREATED  FILE. 

THE  JULIAN  DAY  IS  NOT  CURRENTLY  USED. 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
EXTERNAL  IOSWRITEV8LK, IOSREADV8LK .MITLS1 .MITLS2 
INCLUDE  ‘ DI SKSUSERD ISK : CSUB I MAGE  I  DSP . CMN/NOL 1ST' 

INCLUDE  'DISKSUSERDISK: CSUB IMAGE  I IOTBL . CMN/NOL 1ST  1 
INCLUDE  'DISKSUSERDISK: C SUB  IMAGE  I GRMAP . CMN/NOL I  ST ’ 

INCLUDE  'DISKSUSERDISK: CSUB IMAGE! IMGTBL . CMN/NOL 1ST ' 

INCLUDE  'DISKSUSERDISK: CSUB IMAGE HMGNAME. CMN/NOL I  ST' 

INCLUDE  'DISKSUSERDISK: CSUB IMAGE ] SUBCOM . CMN/NOL I  ST ' 

INTEGER-2  BUF! 200) , ISETUP!  14 > ,SLU , IOSBC 4  ) 

INTEGER  SYSSASSIGN,  SYSSQIOW.  CHAN . SVSSQIO. SYSSWAITFR 

INTEGER  SYSSGETMSG , MSGLEN , ISTATUS 

INTEGER**  L IBSFREEVM . L IBSGETVM , SYSSDASSGN 

INTEGER-2  OUT <513,6*1, X,Y 

BYTE  BOUT( 65664), BYTE (2) 

INTEGER*2  BYTES 
INTEGER-2  OUTPUT, INITC « ) 

INTEGER-2  INPUT<1638*) 

BYTE  BINPUT! 32768 > 

INTEGER  AVACSR , AVAACR .OTSSCVTLTI 
INTEGER-2  ISETUP2! 2 > . ISETUP3! 2 > 

C  CHARACTER  *80  MSGBUF , NAMNUM-4 , 0  I SKSPEC*  1* 

CHARACTER  -80  MSGBUF .NAMNUM-4, DISKSPEC-22 
CHARACTER-60  TITLE .FNAME ,FNAM2 
EQUIVALENCE! BUF! 1 ), I  SETUP! 1 >  > 

EQUIVALENCE! B INPUT. INPUT) 

EQUIVALENCE! BOUT, OUT ) , I  BYTE .BYTES  ) 

COMMON /P RAC HAN 2/ ID ISK2 

DATA  I  SETUP/ ' I20040'O,  ' 1*0001 '0, ' 121000' 0, ’ 107777 '0. ' 17777 '0, 
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1  'Z406I '0, ' 26002 '0, ’3 gggg'O, ‘4 4000 '0,  ' 64777 “0, ‘1 20000*0. 

2  •  50001 ' 0 , ' 70776 ' 0 , ‘ 54000' 0/ 

DATA  ISETUP2/'64777'0, '4 4000 ’ 0 / 

DATA  ISETUP3/'  64776  ’0,  ’44000’O/ 

DATA  IF IRST/1/ 

I»SYSSASSIGN( 'TT' , IVTC. .  ) 

IF <  . NOT. I  1TYPE  •.‘ERROR  IN  TT  CHANNELL  ASSIGN' 

I  »  SYSJASSIGNf 'GRA0' .CHAN, , > 

I F  (  . NOT .  IITYPE  *,'  ERROR  IN  6RINNELL  CHANNEL  ASSIGN' 
ISTATUS»SYSSASSIGN( ' AVA0' . ITCHAN. . ) 

IF( .NOT. ISTATUS  )TYPE  •,'  ERROR  IN  AVA  CHANNEL  ASSIGN' 

AVACSR-0 
AVAACR“ ' 4 1 5 ' 0 

K  >  SYSSQIOWf  XVAL ( 1 ) . XVAL ( CHAN > . XVAL ( XLOCI I0SWRITEVBLK ) ) , IOSB, , , 

1 BUF ( 1  ), XVAL (28), , ,  ,  ) 

0PEN< UNIT-22,  NAME- 'DISKSAVA: IAVAI I  RIGS. DAT' .STATUS- 'OLD ’ .READONLY) 
TITLE-'  READ  DISK  AND  WRITE  TO  GRINNELL  TIME' 

NIMAGES-1 

INSZ-NIMAGES*513 

FNAME-' DISKSAVA: CAVAI IMAGES . DAT ' 

OPEN( UN IT-3H, NAME -FNAME .TYPE-' UNKNOWN' , 

1  FORM- 'UNFORMATTED' , INITIAL  SIZE -IN SZ.USEROPEN-M I TLS2, 

2REC0RDTYPE- ' FIXED ‘ , RECORDS IZE -4*96 ) 

IEVFO-4 

Y-6 

X-J0T 

TYPE  *, 'ENTER  STARTING  IMAGE  NUMBER  DESIRED' 

ACCEPT*. IBLOCK 

I F ( IBLOCK. EQ. I  )THEN 

IBLOCK-l 

ELSE 

IBL0CK»1*( 480*( IBLOCK-1  )  ) 

ENDIF 

ICOUNT-0 

C  CALL  TIMRB 

TYPE  *. 'ENTER  NUMBER  IMAGES  TO  STORE' 

ACCEPT*, IFIELDS 

IFIELDS-IFIEL0S*8  (CONVERT  IMAGES  TO  TRANSFERS 

1  I F ( I COUNT. EQ. 3 . OR. I COUNT . EQ. 7  )THEN 

NBYTES-24576 
ELSE 

NBYTES-32768 

ENDIF 

ISTATUS-SYSSQIOW( XVAL ( IEVFO ) , XVAL ( IDISK2 ) , XVAL< XLOC< IOSREADVBLK >  ) , 
1 IOSB, , , 

1 B I NP UT< 1 ),XVAL(NBYTES)  , XVAL ( IBLOCK),  , , > 

I F  < I COUNT . EQ. 3 . OR . ICOUNT. EQ . 7 ) THEN 

I  BLOCK- 1  BLOCK +  48 

NUMB-24576 

ELSE 

NUMB-32768 

IBL0CK-IBL0CK*64 

ENOIF 

C  I STATUS-SYS*QIO( XVAL ( 1 >,XVAL( ITCHAN ), XVAL ( XL 0C( IOSREADVBLK) ) , 

C  1 IOSB , ,  , 
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1 1 NP UT , XVAL <  NBVTES  ) . XVAl ( X ) , XVAL ( ¥  > , XVAL ( AVACSR  > , XVAL ( AVAACR ) ) 

1 1 NP UT , XVAL ( 3072 0 ) , XVAL  <  X ) , XVAL ( V ) . XVAL  <  AVACSR ) . XVAL  <  AVAACR ) ) 

IF < AVACSR. EQ.0)AVACSR-1 

IF( .NOT. ISTATUS.OR. .NOT. IOSB< 1) >50  TO  57 

WRITE  <  4 , 54  )B INPUT 
4  FORMAT!  IX.  16!1X, 03)  > 

CALL  8UFFCNVT ( NUMB , B INPUT, OUT ) 

TYPE  *. 'NUMBER  OF  LINES  TO  OUTPUT- ',IOL I NE 
I F ( IC0UNT.EQ.3.0R. I COUNT . EQ . 7 )THEN 
IGBYTES-24624 
ELSE 

IGBYTES-32832 

ENDIF 

I  STATUS  -  S YSSQIO! XVAL ! 1 >. XVAL (CHAN) . 

1 XVAL ( XLOC ( IOSVRITEVBLK ) ) , IOSB , , . 

1  BOUT ( I ) , XVAL ( IGBYTES ) , .  .  .  ) 

ISTATUS  -  SYSSQIO! XVAL ( 1 ) , XVAL ( CHAN ) , 

1 XVAL ( XLOC ( IOSWRITEVBLK ) ) , IOSB , , . 

1B0UT! IGBYTES* 1 ) .XVAL! IGBYTES ) . , . . ) 

IF! .NOT. ISTATUS.OR. .NOT. IOSB! I ) )G0  TO  57 
IF! IF IRST )THEN 

TYPE  *, 'ENTER  DISK  NAME  AND  DIRECTORY.  ( DISKSIMAGES : CWI LL IAMS1 ) ' 
READ! 5.6 (DISKSPEC 
DISKSPEC-'D I SKSAVA2 : CAVAI * 

DISKSPEC-'DISKSAVA: CAVA] 1 

TYPE  -.'ENTER  FIRST  IMAGE  FILE  NAME.  (W00010000. IMG ) ' 

READ!  5 , 6  )FNAM2 
FORMAT! A) 

F  NAM- ' S IMS00001 . IMG ' 

NAMNUM-F  NAM2 (2:5) 

FNAM-DISKSPEC//FNAM2 
DECODE!  4, 101, NAMNUM ) INAMNUM 
01  FORMAT! 14) 

NCOL-512 

NROW-480 

ILEN-NROW 

IUD-NCOL 

IMGMAPC! 3 )»ILEN  1  LENGTH  OF  IMAGE 
IMGMAPC! 4 l-IWD  IWIDTH  OF  IMAGE 
IFIRST-0 
I-IWO 

NBYT-! I+I )* ILEN-2 

I-L I BSGETVM! NBYT , IMGADR ) 

IF! .NOT. I  HYPE  ERROR  IN  VIRTUAL  MEMORY  ASSIGNMENT  1' 

I  -  L1BSGETVM! 10000, HDR2ADR) 

IF!. NOT.  I)  CALL  ERRSTOP! I , ' ERROR  GETTING  HDR2  VM ' , ' AVATODSX ' ) 
ENDIF 

HEAD! 8  )- '  r  10NE  CHARACTER  PER  CHANNEL 

HDR2LEN-576 

CURRENTNUMFL-0 

CALL  ADDH0R2! XVAL! H0R2ADR  >  > 

CALL  IMGTODISMBINPUT,  NUMB.  XVAL!  IMGAOR  > ,  ICOUNT  ) 
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IF! I COUNT. EQ. 7  ) THEN 
C  FNAM-  '  SIMS00001 .  IMG  ‘ 

I NAMNUH* I NAMNUM+ 1 

ISTATUS*OTS$CVTLTI < I NAMNUM , NAMNUM , XVAL ( 4 ) , XVAL  !  4  ) , > 

IF! .NOT. ISTATUS)TYPE  *, 'CONVERSION  ERROR  IN  FILE  NAME' 

FNAM2<  2 :5  )»NAMNUM 
FNAM-D I SKSPEC//FNAM2 
ENDIF 
Y-Y+32 

I  COUNT » I COUNT  + 1 
IF ( I  COUNT . EQ . 4 )THEN 

K  «  S YSSQ I O! XVAL ( 1 ) , XVAL ( CHAN ) , XVAL < XL  OC! I OSWR ITEVBLK) > , IOSB, 
1 ISETUP3( 1 > , XVAL ( 4  ) , , , , > 

V'206'O 

X-0 
ENDIF 

IF< ICOUNT . EQ. 8  )THEN 
ICOUNT-0 

K  •  SYSSQIO! XVAL ( 1 ) , XVAL ( CHAN  > , XVAL ( XLOC! I OSWR ITEVBLK )  ) , IOSB , 
1 ISETUP2! 1  ) , XVAL ( 4  ) , .  ,  .  ) 

CALL  TIMRE 
CALL  HEADER! TITLE  ) 

STOP  'IMAGE  READ  IN  AND  DISPLAYED  ON  GRINNELL' 

Y»6 
ENDIF 

IFIELDS-IFIELDS-1 

IF< IFIELDS.EO.0)STOP  'ALL  IMAGES  WRITTEN  TO  DISK* 

GO  TO  1 
CONTINUE 

I  STATUS -SYSSGETMSG  < XVAL ( I  STATUS ) ,  MSGLEN,  MSGBUF , , > 

TYPE  ISTATUS- '  ,  I  STATUS . '  IOSB ( 1) IOSB ( 1  ) 

TYPE  '  ISTATUS-' . ISTATUS,  '  IOSB! 1  >- ' , IOSBI I  ) 

I F  <  . NOT . I  STATUS  )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  *,'QIO  PARAMETER  STATUS MSGBUF 
MSGBUF-'  ' 

ISTATUS-SYSSGETMSG  ( XVAL ( IOSBI 1 )) ,  MSGLEN,  MSGBUF,,) 

IF! .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  •.'I/O  STATUS: ' .MSGBUF 
STOP 

I  FORMAT! IX, ' INPUT-' ,06, 2X, • I0S8-' , 06 , 2X , 06 , 2X , 06 . 2X . 06 > 

K  -  SYSSQIOW! XVAL! 1 ) , XVAL! CHAN ) , XVAL ! XLOC! I OSWR ITEVBLK ) ) , IOSB 
1 ISETUP3 .XVAL! 4  ),,,,) 

END 

SUBROUTINE  BUFFCNVT! NUMB . B I NPUT . OUT ) 

BYTE  BINPUT! 1  )  .BYTE! 2  ) 

INTEGER*2  OUT! 5 1 3 . 1  )  , BYTES , SLU 
EQUIVALENCE! BYTES , BYTE  ) 

DATA  SLU/ '3401 1 '0/ 

1-0 

IOLINE-1 

DO  100  IX- I. NUMB 
1-1*1 

IF! I .EQ.5I2 1THEN 
BYTE! I J-BINPUT! IX  ) 

OUT! I . IOLINE  J-BYTES 
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C  WRITE <  6 , 34 )  I , IOL INE ,OUT( I , IOL INE  ) 

OUT( I  +  l , IOL INE J-SLU 

C  WRITE ( 6 , 34  )  I ♦ 1 , IOL INE ,OUT< !♦ 1 , IOL I NE > 

1-0 

IOL INE- IOL 1 NE+1 
GO  TO  100 
ENDIF 

BYTE  < 1 >-BINPUT< IX) 

OUT( I , IOL INE  >-IAND< NOT! BYTES), ’377'0> 

C  WRITE <  6 , 34  )  I , IOL INE , OUT! I , IOL INE ) 

34  FORMAT ( IX, 13, IX, 13, 2X, 06) 

100  CONTINUE 

RETURN 
END 

SUBROUTINE  IMGTOD I  SKI B INPUT, NUMB . IMAGE , ICOUNT  > 
1NCLU0E  ' D I SKSUSERD I SK : CSUB IMAGE  3  DSP .CMN/NOLIST' 
INCLUDE  'DISKSUSEROISK: CSUB IMAGE  I  I OTBL .CMN/NOLIST’ 
INCLUDE  'OISKSUSEROISK: CSUB IMAGE IGRMAP . CMN/NOL 1ST ' 
INCLUDE  ’OISKSUSEROISK: C SUB  IMAGE ] IMGTBL . CMN/NOL I  ST ' 
INCLUDE  'OISKSUSEROISK: CSUB IMAGE  I IMGNAME .CMN/NOLIST' 
INCLUDE  'OISKSUSEROISK: C SUB  IMAGE ] SUBCOM . CMN/NOL I  ST ' 
INTEG£R*2  IMAGE! NCOL+1 .NROW) 

INTEGERM  IMGADR , SYSSASS IGN , IMGA0R2 , SYSSGETMSG 
BYTE  BINPUT! 1  ) 

INDEX-1 

IF! ICOUNT. LE.3JTHEN 
ISTART-1+! ICOUNT* 1 28 ) 

IF!  ICOUNT.  LE.2UEND-ISTART+126 
IF ! ICOUNT. EQ. 3 ) IEND" I START+94 
DO  I -ISTART, IEND , 2 
DO  J-l .NCOL 
INPUT-BINPUT! INDEX) 

IMAGE <0,1  ) - 1 AND <  ‘ 377 '0. NOT! INPUT)  > 

C  IMAGE! J, I J-BINPUT! INDEX) 

I NDEX- 1 NDEX+ 1 
ENDDO 
ENDOO 
-  ELSE 

ISTART-2  +  ! ( ICOUNT-4  )*128  ) 

IF! ICOUNT. LE.6JIEND-ISTART+126 
IF! ICOUNT. EQ. 7  )  IEND- ISTART*94 
DO  I • I  START , I E  ND , 2 
DO  0-1 .NCOL 
INP JT-BINPUT! INDEX) 

IMAGE! 0, I  )  -  I AND  <  ' 377 '0, NOT! INPUT)  ) 

C  IMAGE! 0,1 )-BINPUT(INDEX) 

INDEX-INDEX+1 

ENDDO 

ENDDO 

ENDIF 

ILEN-NROW 

IWD-NCOL 

C  TYPE* , ' IWD  AND  ILEN  BEFORE  TODISK- ' , IWD , I LEN 

IF! ICOUNT. EQ. 7  )  CALL  TODI SK! IMAGE , IWD , I LEN > 
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C  WRITE! 6 , 1 ) I COUNT 

1  FORMAT ( IX , 1 10 ) 

RETURN 
END 

SUBROUTINE  TODISK! IMAGE , IWO , ILEN ) 

INCLUDE  ' DISKSUSERDISK: CSUSIMAGEl IMGTBL .CMN/NOL I  ST 1 
INCLUDE  ‘DISKSUSERDISK: CSU8 IMAGE 1IMGNAME . CMN/NOL I  ST  * 
INCLUDE  'DISKSUSERDISK: CSUB IMAGE  I SUBCOM . CMN/NOL I  ST ‘ 
INCLUDE  'DISKSUSERDISK: [ SUB  IMAGE  I AUTO  IMG . CMN/NOL 1ST ' 
INTEGERS  IMAGE ( NCOL  +  1 , NROW  ) , HDR2LEN 
INTEGERS  AUTOVRTSB 
CHARACTER" 10000  HDR2ADR 

CHARACTER'S  MONTH , DAY , VEAR*2,WD*8 . LEN"8 , TIMEA*8 
CHARACTER'S  IF IRST5 , I LAST4*4 , TNAME '9 
CHARACTER'2  HOUR . MI NUTE S , SECONDS , MSECONDS'3 , HMS' 1 2 
HDR2LEN-HDR2LEN 
TYPE  ', ' HDR2LEN ' , H0R2LEN 
TYPE  * , 1 HDR2LEN  ' , HDR2LEN 
CALL  CNVRT( XVAL ( HDR2A0R  ),HDR2LEN,HDR2ADR  ) 

C  TYPE  '.HEAD 

CALL  I  DATE ( I MONTH , I  DAY , I  YEAR  ) 

ENCODE ( 3 . 200, MONTH ) IMONTH 
ENCODE ( 3 . 200, DAY  )  1 5 AY 
200  FORMAT! 13) 

ENCODE! 2, 100, YEAR  )  I  YEAR 
HEAD! 3  )■ ’ OLDFAAD  ' 

HEAD! I ) ■ ' USAM ICOM ' 

HEAD! 2  J-YEAR//MONTH//DAY 
100  FORMAT! 12) 

ENCODE  1  8 , 200, WD ) IWD 
HEAD! 11 ) ! 6 : 8 ) ”WD I  1:3) 

ENCODE !  8 , 200,  LENHLEN 
HEAD! 12)!6:8)-LEN! 1:3) 

C  TYPE  '.HEAD 

I  BRACKET” INDEX! FNAM, '  1  '  > 

IPERIOD-INDEX! FNAM, '  .  '  ) 

TNAME-FNAM! I P ER 100-9 : I  PERIOD- 1 ) 

I  BRACKET” I  BRACKET 

IF! IPERIOD-10.LT. I  BRACKET  1THEN 

IZERO-ABSI IPERIOD-10) 

TNAME ! 1 : IZERO  >- '  ' 

ENDIF 

I LAST4”TNAME ! 6 : 9 ) 

IF IRST5-TNAME! 1:5) 

HDR2ADR! 1:8)”  'FN»X0000* 

HDR2ADR! 11 : 18)- '0000. IMG' 

HDR2ADR!4:8)”IFIRST5 
HDR2ADR! 11 : 14  )-ILAST4 
HDR2ADR!5I : 58 ) - ' SL RE DALA ’ 

HDR2ADR! 41:48)” ’ LT 000000 ' 

HDR2ADR! 31 : 38  >- ' RT000000' 

H0R2ADR!21:28)”' OT000000 ' 

CALL  TIME! TIMEA ) 
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HDR2ADR1 43:44 )-TIMEA< 1:2) 

H0R2A0R<  45:46)-TIMEA<  4:5  > 

HDR2ADR( 47 : 48 >-TIMEA<  7 : 8  > 

HDR2ADR(33:38)«HDR2ADR(43:48) 

HDR2A0R(23:28)-HDR2ADR<43:48) 

HDR2ADR<23:28)-HEAD<2)< 1 : 2 > / /HE AD < 2 > ( 4 : 5 > / /HEAD ( 2 > < 7 : 8 > 

REAO< 22. 22 )HOUR, MINUTES. SECONDS .MSECONDS 
2  FORMAT <  5X , A2 , IX ,A2 , IX , A2 . IX , A3 ) 

HDR2ADR<  33:34  (-HOUR 
HDR2ADR< 35 : 36 >»MI NUTES 
HDR2ADR1 37: 38) -SECONDS 
HDR2ADR( 279:281 (-MSECONDS 

CALL  UNCNVRT ( XVAL ( HDR2ADR ) . HDR2LEN , HDR2ADR ) 

TYPE*. 1 HDR2 ' , HDR2A0R( 1 : HDR2LEN ) 

TYPE*.'  WRITING  ' , FNAM( 1:40) 

IHD2-HOR2LEN  I AUTOWRTS8  ROUTINE  NEEDS  THIS  DEFINED  THROUGH  AUTOXMG.CMN 
I  STATU S-AUTOWRTSB( 1 , 1 . I LEN , IWO . IMAGE , XVAL ( HDR2ADR ) ) 

I F <  .NOT. 1STATUS )TYPE  «, 'ERROR  IN  AUTOWRTSB  IMAGE  TO  DISK' 

RETURN 

END 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

THIS  PROGRAM  ALLOWS  THE  USER  TO  SELECT  WHICH  FIELD  IN  THE  AVA  MEMORY 
TO  DISPLAY  ON  THE  GRINNELL. 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

EXTERNAL  IOSWRI TE VBLK , I OSREADVBL K 
INTEGER*2  BUF ( 200  > , I  SETUP  < 1 4 ) , SLU , IOSB< 4 ) 

INTEGER  SYSSASS IGN ,  SYSSQIOW.  CHAN , SYSSQIO, SYSSWAITFR 
INTEGER  SVSSGETMSG , MSGLEN , I  STATUS 
I NTEGER*2  OUT( 51 3 , 64  ) , X  ,  Y 
BYTE  BOUT(65664),BYTE(2) 

INTEGER*2  BYTES 
INTEGER*2  OUTPUT, INIT! 4 > 

I NTEGER*2  INPUT! 16384) 

BYTE  B I NPUT ( 32768 ) 

INTEGER  AVACSR , AVAACR 
INTEGERS  ISETUP2(2),ISETUP3(2) 

CHARACTER  *80  MSGBUF 
EQUIVALENCE! BUF < 1  ), I  SETUP! 1  )  ) 

EQUIVALENCE!  B I NP'JT,  INPUT) 

EQUIVALENCE! BOUT, OUT),! BYTE. BYTES) 

DATA  I  SETUP/ ‘ I  20040 ' 0 , • 140001 'O, ' 1 21000' 0. ' 107777' 0, ' 17777 '0, 

1  '24071 '0, ' 26002 ‘ 0, ' 30000 ' 0 , '44000'O, '64777'0, ' 120000'O, 

2  '50001 '0, ' 70776'O, '54000 '0/ 

DATA  ISETUP3/'64777'0, ' 44000 ‘ 0/ 

I  -  SYSSASSIGN!  'GRA0'  ,CHAN,  ,  ) 

IF!. NOT.  DTYPE  ERROR  IN  GRINNELL  CHANNEL  ASSIGN' 

ISTATUS-SYSSASSIGN! ' AVA0 ' .ITCHAN. , ) 

IF!  . NOT . I  STATUS  1TYPE  *,'  ERROR  IN  AVA  CHANNEL  ASSIGN' 

AVACSR-0 
AVAACR-' 41 5' 0 

K  »  SYSSQIOW! XVAL! 1 > .XVAL! CHAN > ,XVAL!X10C! IOSWRITEVBLK > ) , IOSB, , . 

1 BUF ( I  ) , XVAL ! 28  ) ,  ,  ,  ,  ) 

12  TYPE  *, 'Enter  the  AVA  field  number  to  be  displayed  on  the  GRINNELL.' 

TYPE  *. '0,1,2,  OR  3. ' 

ACCEPT  *,  IFIELD 
IF! IFIELD. EQ.01Y-6 
IF!  IFIELD. EQ.l )Y«'206'O 
IF!  IFIELD. EQ.2)Y«'406'O 
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IF(  IFIELD.EO.3)Y-'606'O 

IF( IF IELO.LT.0.OR. IFIELD.GT.3  ISO  TO  12 

X-0 

ICOUNT-0 

1  I STATUS-SYSSOIO( XVAL < 1 > ,XVAL( ITCHAN ) , XVAL( XLOC( IOSREADVBLK  > ) , 

1IOSB, ,  , 

C  1  INPUT, XVAL (MBYTES ) , XVAL ( X ) , XVAL ( Y ) . XVAL ( AVACSR ) . XVAL ( AVAACR  )  > 

UNPUT. XVAL ( 32768 ),XVAL IX), XVAL IV), XVAL ( AVACSR ) , XVAL ( AVAACR ) ) 
IF ( AVACSR. EQ.01AVACSR-1 

C  IF( .NOT. ISTATUS.OR. .NOT. IOSB( 1  )  )GO  TO  57 

C  WRITE  (4,54  )BINPUT 

54  FORMAT (1X,16(1X,03)) 

NUMB-32768 

CALL  BUFFCNVTI NUMB , B I NPUT , OUT  > 

C  TYPE  *, 'NUMBER  OF  LINES  TO  OUTPUT- IOL INE 

I  STATUS  -  SYSSQ I 0( XVAL ( 1  ) , XVAL ( CHAN  ) , 

1XVAL ( XLOC( IOSWRITEVBLK ) > . IOSB, . . 

1  BOUT ( 1 > .XVAL<  65534 ),,,,> 

ISTATUS  -  SYSSQ I 0( XVAL (  1  ) , XVAL ( CHAN ) , 

1XVAL ( XLOC ( IOSWRITEVBLK) ), IOSB. , , 

I  BOUT ( 65535  > , XVAL (130).,.,) 

C  I F ( .NOT. ISTATUS.OR. .NOT. IOSB( 1 ) >GO  TO  57 

Y-Y+32 

I COUNT - I COUNT ♦ 1 
I F ( I COUNT. EQ. 4  )THEN 

K  -  SYSSQ IO( XVAL ( 1 ) , XVAL ( CHAN ) , XVAL ( XLOC ( I OSWR I TE VBL K ) > . IOSB , , 

I I  SETUP  3( 1 >,XVAL(4>,  .  ,  ,  ) 

GO  TO  12 

END  IF 
GO  TO  1 

57  CONTINUE 

I  STATU S-SYSSGETMSG  ( XVAL ( 1  STATUS  ) .  MSGIEN,  MSGBUF ,  ,  ) 

TYPE*,'  ISTATUS-' .ISTATUS. '  IO$B( 1 ) - ‘  , I OSB( 1  ) 

TYPE  «,'  ISTATUS- • .ISTATUS. ■  IOSB( 1 )- ‘ . I OSB< 1  ) 

I F  <  .NOT. ISTATUS )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG ’ 

TYPE  *,'OIO  PARAMETER  STATUS MSGBUF 
MSGBUF-'  ' 

I STATUS-SYSSGETMSG  ( XVAL( I0S8( 1  )  ) ,  MSGLEN.  MSGBUF,,) 

IF( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'I/0  STATUS: ' .MSGBUF 
STOP 

CU  FORMAT! IX, ' INPUT-' .06.2X, ' IOSB-' ,06 , 2X , 06 , ZX , 06 , 2X , 06 ) 

K  »  SYSSQIOW(XVAL(I),XVAL(CHAN>,XVAL(XLOC( IOSWRITEVBLK)), IOSB, 
1 ISETUP3,XVAL( 4  ), , , ,  ) 

END 

SUBROUTINE  BUFFCNVT ( NUMB , B INPUT.OUT ) 

BYTE  B INPUT! 1  ) , BYTE ( 2  > 

INTEGER*2  OUT( 5 13 , 1  ) . BYTES . SLU 
EQUIVALENCE! BYTES , BYTE ) 

DATA  SLU/ '34011 '0/ 

1-0 

IOLINE-l 

DO  100  I X— 1 .NUMB 
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1-1*1 

IF ( I . EQ.512 )THEN 
BYTE ( 1 >«BINPUT< IX) 

OUT! I . IOIINE )«BYTES 

C  WRITE ( 6 , 34  )  I , IOL INE ,  OUT< I , IOLINE  > 

OUT ( 1  +  1 , IOLINE  >-SLU 

C  WRITE  <  6 , 34  )  1  +  1,  IOLINE,  OUTd  +  l.  IOLINE) 

1-0 

IOLINE-IOLINE+1 
GO  TO  100 
ENDIF 

BYTE ( 1 >«BINPUT< IX) 

OUT ( I , IOLINE  )-IAND( NOT( BYTES ) , '377  ’ 0 > 

C  WR I TE ( 6 ■ 34 )  I , IOLINE ,OUT( I , IOLINE ) 

34  F  ORMAT (  IX, 13, IX, 13, 2X, 06) 

100  CONTINUE 

RETURN 
END 
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EXTERNAL  IOSVRITE VBLK , IOSREADVBLK 
INTEG£R*2  SUF< 200) , I  SETUP! 14 > , SLU , IOSB! 4 > 

INTEGER  SYSSASSIGN,  SYSSOIOU,  CHAN , SYSSQIO , SYSSVAITF R 
INTEGER  SYSSGETMSG .MSGLEN , ISTATUS 
INTEGER‘2  OUT( 5 1 3 , 60  ) , X , Y 
BYTE  BOUT( 615 60), BYTE! 2) 

INTEGER*2  BYTES 
I NTEGER*2  OUTPUT, INIT< 4 ) 

I NTEGER*2  INPUT ( 15360 ) 

BYTE  BINPUTt 30720) 

INTEGER  AVACSR , AVAACR 
I NTEG£R*2  ISETUP2I 2  ) . ISETUP3I 2  ) 

CHARACTER  *80  HSGBUF 
EQUIVALENCE! BUF< 1 ) , I  SETUP! 1 ) ) 

EQUIVALENCE! B INPUT, INPUT) 

EQUIVALENCE (BOUT, OUT), (BYTE, BYTES) 

DATA  I  SETUP / 1 120040'O, ' 140001 ’O. ' 121000*0, *  107777*0, *  17777*0, 

1  '24061*0, ' 26002 '0, *30000*0, *44000*0, *64777*0. ' 120000*0, 

2  *50001 *0, ‘70776*0, *54000*0/ 

DATA  ISETUP2/'64777'0, *44000*0/ 

DATA  ISETUP3/* 64776*0, *44000*0/ 

I  -  SYSSASSIGN! *GRA0* .CHAN, , > 

IF(.NOT.  DTYPE  *,*  ERROR  IN  GRINNELL  CHANNEL  ASSIGN* 
ISTATUS-SYSSASSIGN!  ' AVA0  * , ITCHAN. ,  ) 

IF! .NOT. ISTATUS 1TYPE  *,'  ERROR  IN  AVA  CHANNEL  ASSIGN* 

AVACSR-0 
AVAACR- *415*0 

K  -  SYSSQIOW! XVAL ( 1 ) , XVAL ( CHAN ) , XVAL! XLOC! IOSWR I TE VBLK ) ) , IOSB , , , 
1BUF ( 1 ) , XVAL ( 28  ) , , , ,  ) 

Y-6 

X-0 

ICOUNT-0 

l  ISTATUS-SYSSQIO! XVAL! 1 > ,XVAL! ITCHAN  )  .XVAL! XLOC! IOSREADVBLK) ) , 

1I0S8. ,  , 

C  1 1 NP UT , XVAL ( NBYTES ) , XVAL ( X  > , XVAL ( Y ) , XVAL ( AVACSR  > , XVAL ( AVAACR )  ) 

1 1 NP UT , XVAL ( 30720 > , XVAL ( X ) , XVAL ( Y ) , XVAL ( AVACSR  >, XVAL ( AVAACR  > ) 

I F ( AVACSR . EQ .0 1AVACSR- l 

C  IF! .NOT. ISTATUS. OR. .NOT. IOSB! 1 )  )G0  TO  57 

C  WRITE  ! 4 , 54  1BINPUT 
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54  FORMAT < 1X,16(1X,03>) 

NUMB-30720 

CALL  BUFFCNVT<  NUMB , BINPUT ,OUT ) 

C  TYPE  », 'NUMBER  OF  LINES  TO  OUTPUT- IOL INE 

I  STATUS  -  SYS JQIO( XVAL ( 1 ) . XVAL ( CHAN  ) , 

1XVAL( XLOC( IOSWR ITEVBLK  ) ) , IOSB, . , 

1B0UT< 1 ) , XVAL ( 61560 ) . , . . > 

C  I F  <  .NOT. ISTATUS.OR. .NOT. IOSBC 1 >  )GO  TO  57 

Y-Y*30 

I COUNT  *  I COUNT* 1 
IF ( ICOUNT.EQ.41THEN 

ISTATUS-SYSSOIOC  XVAL  < 1 ).XVAL( ITCHAN ) ,XVAL( XLOCC IOSREAOVBLK  )  ). 
1 IOSB  ,  ,  , 

1  INPUT, XVAL (  8192 ). XVAL ( X  >. XVAL ( Y  > .XVAL (AVACSR ), XVAL (AVAACR  )  > 
NUMB-8 192 

CALL  BUFFCNVTI NUMB. BINPUT, OUT) 

ISTATUS  •  SYSSQIOC  XVAL ( 1  ) , XVAL < CHAN  > , 

1XVAL  <  XLOC( IOSWR ITEVBLK  ) ) . IOSB,  .  , 

1  BOUT ( 1  ) , XVAL (  16384  ),,,,) 

K  -  SYSSQIOC XVAL ( 1 ) , XVAL { CHAN ) , XVAL ( XLOC( I OSWR ITEVBLK)), IOSB , 
1ISETUP3C 1  )  ,XVAL( 4  ) ,  ,  .  ,  ) 

V - ' 206 ' O 

X-0 

ENOIF 

IF ( IC0UNT.EQ.81THEN 
ICOUNT-0 

I STATUS-SYSSQIOI XVAL< 1 I.XVALC ITCHAN ), XVAL ( XLOC t IOSREAOVBLK)) , 
1 IOSB , , , 

1  INPUT, XVAL< 8 192 ),XVAL(X), XVAL (Y),XVAL< AVACSR). XVAL (AVAACR >  > 
NUMB-8 1 92 

CALL  BUFFCNVTI NUMB, BINPUT, OUT) 

ISTATUS  -  S YSSQIO( XVAL ( 1 ) , XVAL < CHAN ) , 

IXVAL  <  XLOC I  I OSWR ITEVBLK  ) ) , IOSB , , , 

I  BOUT ( 1  ) , XVAL (  16384), , , ,  ) 

K  »  SYSSQIO( XVAL ( 1 ) , XVAL ( CHAN  > , XVAL ( XLOC( I OSWR ITEVBLK ) ) , IOSB , 
1 ISETUP2( 1  ) , XVAL ( 4  ) , , ,  ,  ) 

Y-6 
ENOIF 
GO  TO  1 

57  CONTINUE 

I STATUS-SYSSGETMSG  < XVAL ( ISTATUS  ) ,  MSGLEN,  MSGBUF , ,  ) 

TYPE  *,*  ISTATUS-' .ISTATUS, '  IOSBt l  )- ' . IOSB< 1  ) 

TYPE  *,'  ISTATUS-' .ISTATUS, '  IOSB< 1 >- ' . I0SB( 1  ) 

I F <  .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  * , ' QIO  PARAMETER  STATUS: ' .MSGBUF 
MSGBUF-'  ' 

I STATUS-SYSSGETMSG  ( XVAL( IOSB( 1  )  > ,  MSGLEN,  MSGBUF,,) 

IF ( .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,’I/0  STATUS: ' .MSGBUF 
STOP 

CU  FORMAT<  IX,  '  INPUT-'  ,06, 2X,  '  IOSB-'  ,  06 , 2X  ,  06 , 2X  ,  06  Y.  06  ) 

K  -  SYSSQIOW( XVAL  < 1 ) , XVAL ( CHAN ) , XVAL ( XLOCI I OSWR I Tt /BLK  >  > , IOSB 

I I  SETUP  3, XVAL ( 4 ) , , , ,  ) 

ENO 
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SUBROUTINE  BUFFCNVTI NUMB . BINPUT, OUT > 
BYTE  BINPUT1 1 ),BYTE<2) 

I NTEGER*2  OUT< 5 1 3 , I) . BYTES , SLU 
EQUIVALENCE ( BYTES , BYTE ) 

DATA  SLU/ '34011 '0/ 

1*0 

IOLINE-1 

DO  100  IX-l.NUMB 

I  -  I  ♦  1 

IF ( I . EQ. S12  )THEN 
BYTE! 1 >-BINPUT< IX) 

OUT  < I,I0L1NE)-1AND(  NOT! BYTES  ) , '377'0> 

C  WRITE (6,34)  I , IOLINE , OUT( 1 , 10L1NE  ) 

OUT ( I  +  l , IOLINE  )-SLU 

C  WRITE (6.34)  1*1 . IOLINE . OUT! 1+1 , IOLINE > 

1-0 

IOL INE- IOL INE+1 
GO  TO  100 
END  I F 

BYTE (  1  )-BINPUT< IX  ) 

OUT ( I , IOLINE  )-IAND(NOT< BYTES), '377'0> 

C  WRITE ( 6 , 34 )  I , IOL INE ,OUT( I , IOLINE > 

34  FORMAT ( IX, 13, IX, 13, 2X, 06) 

100  CONTINUE 

RETURN 
END 
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EXTERNAL  IOSWRITEVBLK, IOSREADVBLK 
INTEGERS  BUF ( 200  ) , I  SETUP { U ) , SLU , IOSB<  4 > 

INTEGER  SYSSASSIGN.  SYSSQIOW,  CHAN , SVSSQ 10 , S YSSWA I TFR 
INTEGER  SYSSGETMSG .MSGLEN , I  STATUS 
INTEGERS  OUT<  513 . 64  ) ,  X  ,  Y 
BYTE  BOUT!65664),BYTE!2) 

INTEGER*2  BYTES 
INTEGER*2  OUTPUT, INIT( 4 ) 

INTEGER*2  INPUT! 16384) 

BYTE  8INPUT! 32768) 

INTEGER  AVACSR , AVAACR 
INTEGERS  ISETUP2(2),ISETUP3<2) 

CHARACTER  *80  MSG8UF 

EQU I VALENCE! BUF ( 1  ), I  SETUP! 1  )  > 

EQUI VALENCE! B INPUT, INPUT) 

EQUIVALENCE! BOUT, OUT  > , ! BYTE , BYTES  > 

DATA  I  SETUP / ' 1 20040' 0, ' 140001 '0, ' 121000' 0,  ' 107777 '0, ' 17777 '0, 

1  ' 24061 '0, ' 26002 '0, ■ 30000' 0, ' 44000' 0 ,' 64777 ' 0 , ' 120000'O, 

2  '50001 '0, '70776 '0, '54000' 0/ 

DATA  ISETUP2/'64777'0, ' 44000 ' 0/ 

DATA  ISETUP3/'64776'0, ‘ 44000' 0/ 

I  -  SYSSASSIGN!  'GRA0' .CHAN, ,  ) 

IF!. NOT.  I1TYPE  ERROR  IN  GRINNELL  CHANNEL  ASSIGN' 

ISTATUS-SYSSASSIGN!  ' AVA0' . ITCHAN, ,  ) 

IF! .NOT. ISTATUS)TYPE  *,'  ERROR  IN  AVA  CHANNEL  ASSIGN' 

AVACSR-0 
AVAACR-' 415' 0 

K  -  SYSSOIOW! XVAL! 1 ), XVAL ! CHAN >, XVAL ! XLOC ( IOSWRITEVBLK)), IOSB, , , 
1 BUF ( 1  )  .XVAL! 28  ), , , ,  ) 

Y-6 

X-0 

I  COUNT-0 

ISTATUS-SYSSQIO! XVAL! 1  ), XVAL ( ITCHAN ), XVAL ! XLOC! IOSREADVBLK) ) , 

1 IOSB,  ,  , 

1  INPUT, XVAL ! NBYTES ) , XVAL I  X  ) , XVAL <  Y  ) , XVAL ( AVACSR  ) , XVAL  t  AVAACR  )  ) 

1  INPUT, XVAL! 32768) , XVAL! X ), XVAL ! Y  ), XVAL ! AVACSR ), XVAL ! AVAACR ) ) 

I F  <  AVACSR . EQ . 0 ! AVACSR- 1 

IF! .NOT. ISTATUS.OR. .NOT. IOSB! 1 ) )G0  TO  57 


WRITE  <  4 , 54  )B INPUT 
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54  FORMAT! XX. 1 6  < 1X,03 ) ) 

NUMB” 32768 

CALL  SUFFCNVT!  NUMB, S INPUT, OUT  > 

C  TYPE  *, 'NUMBER  OF  LINES  TO  OUTPUT” 1 , IOL I NE 

ISTATUS  •  SVSSQIO!  XVAL ( 1  ) , XVAL ( CHAN  ) , 

1XVAL<XL0C< IOSWR ITEV8LK  )  ) , I OSB , . , 
lBOUT( 1  )  ,XVAL<  65534  ) ,  ,  ,  .  > 

ISTATUS  *  S YSSQI 0( XVAL <  1  ) , XVAL ( CHAN  ) , 

1 XVAL ( XLOC ( IOSWR ITEVBLK  )  ) , I OSB , . , 
l BOUT <  65535 ) ,XVAL( 130) , ...  ) 

C  I F ( .NOT. ISTATUS. OR. .NOT. IOSB< 1 > >GO  TO  57 

Y-Y+32 

I COUNT” I COUNT* 1 
I F < ICOUNT . EQ. 4  )TH£N 

I STATUS“SYSSQIO( XVAL ( 1 ),XVAL( ITCHAN  ) , XVAL <  XLOC( IOSREADVBLK  >  ) 
1 IOSB , ,  , 

1  INPUT, XVAL <  8192). XVAL ( X ) , XVAL < Y ) , XVAL < A VAC SR  ) , XVAL ( AVAACR  )  > 
NUMB*  8 1 92 

CALL  BUFFCNVT( NUMB. BINPUT, OUT) 

ISTATUS  -  SYSS<JIO<XVAL<  1  ).  XVAL  (  CHAN  ) . 

1 XVAL ( XLOC ( IOSWRITEVBLK) > . IOSB.  ,  . 

1B0UT< 1  ),XVAL<8192). . . .  ) 

K  ”  SYSSOIO<XVAL< 1 ),XVAL<CHAN ).XVAL<XLOC< IOSWRITEVBLK) ). IOSB 
1 ISETUP3< 1  ) , XVAL <  4  ) , , .  ,  ) 

Y-'206'O 
X«0 
END  IF 

IF  < ICOUNT. EQ. 8  1THEN 
ICOUNT-0 

ISTATUS-SYSSQIO<  XVAL( 1 > .XVAL < ITCHAN ) ,XVAL< XLOC< IOSREADVBLK  )  ) 
1 IOSB  ,  ,  . 

1 1 NP UT , XVAL (8192). XVAL  <  X ) , XVAL  <  Y ) , XVAL  <  AVACSR  ) , XVAL  <  AVAACR  >  ) 
NUMB-3192 

CALL  BUFFCNVT!  NUMB , B INPUT, OUT ) 

ISTATUS  -  SYSSQ I0( XVAL < 1 ) ■ XVAL ( CHAN  ) , 

1 XVAL ( XLOC ( IOSWRITEVBLK  > ) . IOSB. . . 

1  BOUT < 1 ) , XVAL  <  8192  ) , . . .  ) 

K  -  SYS$aiO<XVAL< 1 ). XVAL < CHAN ), XVAL < XLOC < IOSWRITEVBLK) >, IOSB 
1 1 SETUP2< 1  )  ,XVAL<  4) , , , .  ) 

Y-6 
ENDIF 
<50  TO  1 
57  CONTINUE 

ISTATUS-SYSSGETMSG  < XVAL < ISTATUS ) ,  MSGLEN,  MSGBUF , ,  ) 

TYPE  *,'  ISTATUS”' . ISTATUS, 1  IOSB< 1 , IOSB<  1  ) 

TYPE  ISTATUS-' , ISTATUS, '  IOSB! 1 >- ' , IOSBI 1  ) 

I F  < .NOT. ISTATUS )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG ’ 

TYPE  * , ' QIO  PARAMETER  STATUS :' .MSGBUF 
MSGBUF”'  ' 

I  STATUS -SYSSGETMSG  < XVAL< IOSB< 1  )  ) ,  MSGLEN,  MSGBUF,,) 

IF < .NOT. ISTATUS  )  TYPE  *, "ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'I/0  STATUS: 1 .MSGBUF 
STOP 

CU  FORMAT! IX, ' INPUT-' ,06.2X, ' IOSB-' , 06 , 2X . 06 , 2X , 06 , 2X , 06 > 
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K  •  S YSSQIOW ( XVAL < 1 ) . XVAL ( CHAN  > , XVAL ( XLOC ( I OSWR ITEVBLK) ), I OSB , , 
1 1  SETUP  3 , XVAL ( 4  ) ,  ,  .  ,  ) 

END 

SUBROUTINE  BUFFCNVT! NUMB , B INPUT, OUT  ) 

BYTE  BINPUTf I  ),BYTE<2) 

INTEGER»2  OUT< 5 1 3 . I  ) . BYTES . SLU 
EQUIVALENCE  <  8YTES.BYTE  ) 

DATA  SLU/ ' 3401 1 '0/ 

I  >0 

IOLINE-1 

DO  100  IX-1  ,  NUMB 
I-I  +  t 

IF( I . £Q. 512 )THEN 
BYTE ( 1 >-BINPUT( IX  ) 

OUT  < I , IOLINE (“BYTES 
C  WRITE ( 6 , 34 )  I , IOLINE, OUT( I . IOLINE ) 

OUT < 1  +  1 . IOLINE  )«SLU 

C  WRITE (6.34)  I+l , IOLINE , OUT! I+l , IOLINE ) 

1-0 

IOLINE-IOLINE+1 
GO  TO  100 
END  I F 

BYTE ( 1  ) -B I NPUT( IX  ) 

OUT ( I . IOLINE  )-IAND(NOT< BYTES), ' 377 '0> 

C  WR ITE <  6 , 34  )  I . IOLINE ,OUT( I , IOLINE  ) 

34  FORMAT! IX, 13, IX, 13, 2X, 06) 

100  CONTINUE 

RETURN 
END 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

THIS  PROGRAM  ALLOWS  THE  USER  TO  WRITE  A  SPECIFIED  BYTE  TO  A  FIELD 
IN  THE  AVA  VIDEO  MEMORY  SELECTED  BY  HIM. 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

EXTERNAL  IOSWRITEVBLK, IOSREADVBLK 
INTEGER*2  BUF< 20*  > . I  SETUP ( 1 4 > ,SLU , IOSB< 4 > 

INTEGER  SYSSASSIGN.  SYSSQIOW,  CHAN , SYSSO 10 , SYSSWAITF R 
INTEGER  SYSSGETMSG , MSGLEN , ISTATUS 
INTEGER-2  OUT( 51 3 . 64  ) , X , Y 
BYTE  BOUT (65664), BYTE (2) 

INTEGER-2  BYTES 
INTEGER-2  OUTPUT , I N IT( 4  ) 

INTEGER-2  INPUT! 16384) 

INTEGER  IERROR! 512) 

BYTE  B INPUT!  32768  ) , BDATA! 2  ) , DATAIN . DATAINA! 4 > 

INTEGER-2  IDATA 
INTEGER  AVACSR , AVAACR 
INTEGER-2  ISETUP2I2  ) , ISETUP3I2) 

CHARACTER  *8*  MSGBUF, TITLE 
EQUIVALENCE! BUF! 1 l.ISETUP! 1  )  ) 

EQU I VALENCE! B INPUT, I NPUT ) . ! I  DATA . BOATA ) 

EQUIVALENCE! BOUT. OUT  ) . ( BYTE .BYTES  ) 

DATA  I  SETUP /' 1 20040 ' 0 , • 14*0*1 '0, ' 121**»'0, • 1*7777'0, ' 17777'0, 

1  '24*61  -0.  '26**2'0,  -3****'0.  '44**0'O,  64777'0,  ’  1 2****'0, 

2  -5***1 -0. '7*776-0, '54*** -0/ 

DATA  ISETUP2/ ' 64777 -0, -44***-0/ 

DATA  ISETUP3/'64776'0, ' 44000 1 0/ 

I  -  SYSSASSIGN! -GRA0- .CHAN, , > 

IF!. NOT.  I1TYPE  *,'  ERROR  IN  GRINNELL  CHANNEL  ASSIGN' 
ISTATUS-SYSSASSIGN!  'AVA*' , ITCHAN, .  ) 

IF! .NOT. ISTATUS >TYPE  ERROR  IN  AVA  CHANNEL  ASSIGN' 

AVACSR-* 

AVAACR-' 435'0 

K  -  SYSSQIOW! XVAL! 1 ) . XVAL ! CHAN ) . XVAL f XL OC! IOSWRITEVBLK)  ) . IOSB, , , 
l BUF ! 1 ) .XVAL! 28  ), , . .  ) 

ITESTN-1 

IERRORC-* 

DATAINA! 1 ) - ' 1 25 ' 0 
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DATAINAl  2  )«0 
DATAINA<3>-'252'0 
DATA  I NA( 4  >» 1 377 ' 0 
OATAI N»  *  125  1  0 
DATAIN-DATAINA< ITESTN) 

57  TYPE  ENTER  DATA  TO  BE  WRITTEN  INTO  THE  FIELD  IN  OCTAL.  (I.E.  377)' 

READ<5,56)DATAIN 
56  FORMAT ( 03 ) 

DO  1-1,32768 
BINPUTI I >«DATAIN 
ENDDO 

TYPE  *, 'ENTER  THE  FIELO  TO  WRITE  THE  DATA  INTO.  <0.1,2,  OR  3)' 

READ( 5,56)IFIELD 
I F  < IFIELD.EO. 0>Y»6 
IF< IFIELD.EO. 1 )Y- ' 206 1 0 
IF  < IFIELD.EO. 2>Y-'406'O 
IF  < IFIELD.EO. 3 )Y«'606’O 
IF( IFIELD.LT. 0. OR. IFIELD.GT.3)G0  TO  57 
C177  Y-6 

X-0 

ICOUNT-0 

1  ISTATUS-SYSSQIO<  XVAL  < 1 ) , XVAL ( ITCHAN ) , XVAL ( XLOC( IOSWRITEVBLK) > , 

1 IOSB  ,  ,  , 

C  1 1 NP UT , XVAL <  NBYTES ) , XVAL <  X ) , XVAL ( Y ) , XVAL <  AVACSR ) , XVAL <  AVAACR ) > 

1 1 NP  UT , XVAL  <  32768 ) , XVAL  <  X ) , XVAL  <  Y ) , XVAL ( AVACSR ) , XVAL  C  AVAACR ) ) 

IF < AVACSR. EQ.0IAVACSR-1 

C  I F <  .NOT. ISTATUS.OR. .NOT. IOSB< 1 > >G0  TO  57 

C  WRITE  ( 4, 54  >BI NPUT 

54  FORMAT (1X,16(1X,03)) 

NUMB-32768 

CALL  BUFFCNVT(NUMB.BINPUT.OUT) 

TYPE  *, 'NUMBER  OF  LINES  TO  OUTPUT- *, I0L INE 
ISTATUS  -  SYSSQ I0( XVAL ( 1  ) , XVAL ( CHAN  ) , 

1 XVAL <  XLOC ( IOSWRITEVBLK  >  ) , IOSB , , , 

1  BOUT ( 1  ) , XVAL ( 65534  ) , ,  ,  ,  ) 

ISTATUS  -  SYSSQ 1 0( XVAL  < 1 ) , XVAL ( CHAN  ) , 

1 XVAL <  XLOC < I0SWRITEV8LK  )  ) , IOSB, , , 

1  BOUT  < 65535 ) ,XVAL< 130) , , , , ) 

IF< .NOT. ISTATUS.OR. .NOT. IOSB< 1 )  )G0  TO  57 
Y-Y-32 

ICOUNT-ICOUNT-l 
IF  I IC0UNT.EQ.4  >THEN 
GO  TO  57 
END  I F 
GO  TO  I 
END 

SUBROUTINE  BUFFCNVT<  NUMB , 8 INPUT, OUT  ) 

BYTE  BINPUTfl  ),BYTE<2> 

INTEGER-2  OUT (513,1  )  .BYTES , SLU 
EQUIVALENCE! BYTES. BYTE ) 

DATA  SLU/ '34011 '0/ 

1-0 

IOLINE-l 
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DO  100  IX- 1. NUMB 

I  -  I  + 1 

IF ( I . EQ.512 )THEN 
BYTE< 1  )-BINPUT( IX  > 

OUT< 1 , IOLINE (-BYTES 

C  WRITE! 6,34)  I . IOLINE ,OUT{ I , IOL INE > 

OUT (1+1,1 OLIN£)-SLU 

C  WRITE (6,34)  I  +  l , IOL INE ,OUT( 1  + 1 , IOL INE  ) 

1-0 

IOL INE- IOL INE+ 1 
GO  TO  100 
ENDIF 

BYTE ( 1  )-BINPUT( IX) 

OUT! l, IOL INE >«IAN0(NOT( BYTES), '377’0> 

C  WRITE ( 6 , 34  )  I . IOL INE ,OUT( I , IOLINE  ) 

34  FORMAT! IX, 13. IX, 13. 2X, 06) 

100  CONTINUE 

RETURN 
END 
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EXTERNAL  IOSWRITEVBLK, IOSREADVBLK 
INTEG£R*2  BUF! 200) , I  SETUP ( U > , SLU . IOSB! 4 ) 

INTEGER  SYSSASSIGN,  SYSSQIOW,  CHAN.SYSSQIO.SYSSWAITFR 
INTEGER  SYSSGETMSG .MSGLEN , ISTATUS 
INTEGER*2  OUT( 51 3 , 64  )  ,  X , Y 
BYTE  BOUT(65664),BYTE(2) 

INTEGER*2  BYTES 
I NTEGER*2  OUTPUT, INIT<4) 

INTEG£R*2  INPUT! 16384) 

BYTE  BINPUT(32768), BDATA( 2 ) 

I NTEGER*2  IDATA 
INTEGER  AVACSR,AVAACR 
INTEGER*2  I SETUP2! 2  ) , ISETUP3! 2 ) 

CHARACTER  *80  MSGBUF, TITLE 
EQUIVALENCE! BUF( 1  ). ISETUP! 1  )  > 

EQUIVALENCE! BINPUT, INPUT),! IDATA, BDATA) 

EQUIVALENCE  I  BOUT, OUT), (BYTE. BYTES) 

OATA  ISETUP/1 1 20040*0 , 1 I4000I '0, ' 121000*0, * 107777*0, *17777*0, 

1  *24061 '0, '26002*0, *30000*0, *44000*0, *64777*0, *  120000*0, 

2  *50001 *0, *70776*0, *54000*0/ 

OATA  ISETUP2/' 64777*0, *44000*0/ 

DATA  ISETUP3/*64776’0, *44000*0/ 

I  -  SYSSASSIGN!  *GRA0* , CHAN, .  ) 

IF!. NOT.  I1TYPE  *,*  ERROR  IN  GRINNELL  CHANNEL  ASSIGN* 
ISTATUS-SYSSASSIGN! *AVA0* .ITCHAN, , ) 

IF! .NOT. ISTATUS 1TYPE  *,*  ERROR  IN  AVA  CHANNEL  ASSIGN* 

A VAC SR "0 
AVAACR-* 435*0 

K  -  SYSSQIOW! XVAL! 1  ) , XVAL ( CHAN  > , XVAL ( XLOC!  IOSWRITEVBLK )),  IOSB  ,  ,  , 
1 BUF ( 1 ) , XVAL ( 28 ) , , ,  ,  ) 

V-6 

X-0 

ICOUNT-0 
DO  1-1,32768 
IOATA-IAND! ( 1-1 ), *377*0) 

BINPUT! I J-BDATA! 1 ) 

ENDDO 

TITLE  * ' FOUR  FIELD  WRITE  TO  AVA* 

CALL  TIMRB 

ISTATUS-SYSSQIO! XVAL! 1 ) ,XVAL< ITCHAN ), XVAL ( XLOC! IOSWRITEVBLK) ) . 
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1 10SB, , . 

C  II NP UT  ,  XVAL <  NBYTES  > ,  XVAL(  X  ) , XVAL <  V  ) , XVAL <  AVACSR  ) . XVAL ( AVAACR  )  ) 

1  INPUT , XVAL!  32768 ) , XVAl ( X  ) , XVAL( Y  > , XVAL! AVACSR  > , XVAL ( AVAACR )  > 

I F ( AVACSR .  EQ .  0  JAVACSR- 1 

C  I F  <  .NOT. ISTATUS.OR. .NOT. IOSB! 1 ) >GO  TO  57 

C  WRITE  ( 4 , 54  )B INPUT 

54  FORMAT! IX, 16< 1X.03 > > 

NUMB-32768 

CALL  BUFFCNVT! NUMB, BINPUT. OUT) 

TYPE  * , ' NUMBER  OF  LINES  TO  OUTPUT- IOL INE 
ISTATUS  •  SYSSQIO!  XVAL ( 1  ) , XVAL <  CHAN  ) , 

1XVAL  <  XLOC( IOSWRITEVBLK) ) , IOSB, ,  , 

1  BOUT < 1 ) ,XVAL(  65534  >,,,,) 

ISTATUS  -  SYSSQIO! XVAL ( 1 ) , XVAL ( CHAN ) , 

1 XVAL ! XLOCl IOSWRITEV8LK)  >, IOSB, , . 

1  BOUT ( 65535 ) ,XVAL( 130) , , , , ) 

IF( .NOT. ISTATUS.OR. .NOT. IOSB( I > )GO  TO  57 
Y-Y+32 

I COUNT- I COUNT ♦ 1 
IF ( IC0UNT.EQ.4  )THEN 

ISTATUS-SYSSQIO! XVAL( 1 ),XVAL< ITCHAN ) , XVAL < XLOC< IOSREADVBLK  )  ). 

1 IOSB , ,  , 

1  INPUT .XVAL (8 192), XVAL! X ), XVAL< Y ), XVAL < AVACSR >, XVAL (AVAACR  )  ) 
NUMB-8 1 92 

CALL  BUFFCNVT! NUMB, BINPUT, OUT) 

ISTATUS  -  SYSSQIO! XVAL! 1 ) .XVAL! CHAN ) , 

1 XVAL ( XLOC! IOSWRITEVBLK)  ) , IOSB, , . 

1  BOUT ( 1  ) , XVAL (8192),, , ,  ) 

K  -  SYSSQIO!XVAL(l).XVAL(CHAN),XVAL(XLOC(IOSWRITEVBLK>>,IOSB,, 
1 1 SETUP3! 1  ) , XVAL ( 4  ) , , , ,  ) 

V-' 206-0 
X-0 
ENDIF 

IF! I COUNT . EQ . 8  )THEN 

I STATUS-SYSSQIO! XVAL ( 1 >,XVAL( ITCHAN > .XVAL ( XLOC! IOSREADVBLK) ) , 

1  IOSB  ,  ,  , 

1 1 NP  UT . XVAL  (8192), XVAL ( X ) , XVAL ( Y ) , XVAL ! AVACSR  ) , XVAL  t  AVAAC  R  )  ) 
NUMB-8 1 92 

CALL  BUFFCNVT! NUMB, BINPUT, OUT) 

ISTATUS  -  SYSSQIO! XVAL ( 1 ) , XVAL (CHAN  > , 

I XVAL (XLOC!  IOSWRITEVBLK)  ) , IOSB, ,  , 

1  BOUT ( 1 ) ,XVAL(8192  >, , , ,  ) 

K  -  SYSSQIO! XVAL! 1 ),XVAL(CHAN ), XVAL! XLOC! IOSWRITEVBLK)  ), IOSB, , 
1 1 SETUP2! 1 ) ,XVAL<  4  ),,,,) 

Y ■ ' 406 1 0 
ENDIF 

IF! ICOUNT.EQ. 16 ITHEN 
Y-'eae-o 
ENDIF 

IF! I COUNT. EQ. 24) THEN 
ICOUNT-0 
CALL  TIMRE 
CALL  HEADER! TITLE) 
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CALL  TIMRB 
ENDIF 

GO  TO  1 

57  CONTINUE 

I  STATUS -SYSSGETMSG  <  XVALI I  STATUS  ) ,  MSGLEN,  MSGBUF , ,  ) 

TYPE  «,'  ISTATUS-' .ISTATUS, '  IOSB( 1  )- ' , IOSB!  1  ) 

TYPE  *,'  ISTATUS-' .ISTATUS,  1  IOSB( 1  )- ',I0SB( 1  ) 

IF( .NOT. ISTATUS  )  TYPE  ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  *,'QIO  PARAMETER  STATUS MSGBUF 
MSGBUF-'  ' 

I STATUS-SYSSGETMSG  ! XVAL! IOSBt 11),  MSGLEN.  MSGBUF,, > 

IF( .NOT. ISTATUS  )  TYPE  'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *.'1/0  STATUS: ' .MSGBUF 
STOP 

CI1  FORMAT ( IX, ' INPUT-' ,06. 2X, ' IOSB-' , 06 , 2X , 06 , 2X , 06 . 2X , 06  ) 

K  -  S  YSSQ IOW! XVAL  ! 1  > , XVAL ( CHAN  > , XVAL  <  XLOC ( I OSWR ITEVBLK)  ) , I OSB , , 
1 ISETUP3.XVAL! 4  ). .  .  ,  ) 

END 

SUBROUTINE  BUF FCNVT! NUMB , B INPUT , OUT > 
byte  BINPUT!  1  ) , BYTE <  2  ) 

INT£GER*2  OUT! 51 3 , 1 > . BYTES , SLU 
EQUIVALENCE (BYTES, BYTE  ) 

DATA  SLU/' 34011 '0/ 

1-0 

IOL INE-l 

DO  100  IX-1 , NUMB 
I-I  +  l 

I F  < I . £0. 512  )THEN 
BYTE ( 1 ) »B I NP  UT( IX) 

OUT  < I , IOL INE J-BYTES 
C  WRITE <6,34)  I , IOL I NE , OUT! I . IOL I NE > 

OUT( I  + 1 , IOL I NE  l-SLU 

C  WRITE (6,34)  I ♦ 1 , IOL INE ,OUT< I* l , IOL INE  ) 

1-0 

IOLINE-IOLINE+1 
GO  TO  100 
ENDIF 

BYTE ( 1  )»B I NPUT( IX) 

OUT! I , IOL INE  >«IANO< NOT< BYTES > , '377'0> 

C  WRITE! 6,34)  I , IOL INE ,OUT( I . IOL INE  ) 

34  FORMAT! IX, 13, IX, 13, 2X, 06  ) 

100  CONTINUE 

RETURN 
END 
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EXTERNAL  IOSVRITEVBLK, IOSREADVBLK 
INTEGER-2  BUF<  200)  .  I  SETUP!  1 4  ) ,  SLU .  IOSB<  4  > 

INTEGER  SYSSASSIGN.  SVSSQIOW,  CHAN , SYSSQIO, SYSSVAITFR 

INTEGER  SYSSGETMSG.MSGLEN, ISTATUS 

PARAMETER  NLINES-64 

INTEGER-2  OUT! 51 3 , NL I NES  ) , X , Y 

BYTE  BOUT  <  1026-NL  INES),BYTE!2> 

INTEGER-2  BYTES 
INTEGER-2  OUTPUT, INIT< 4 ) 

INTEGER-2  INPUTI256-NLINES) 

BYTE  BINPUT(S12*NLINES), BDATA<  2  > 

INTEGER-2  IDATA 
INTEGER  AVACSR.AVAACR 
INTEGER-2  ISETUP2( 2 ) . ISETUP31 2 ) 

CHARACTER  -80  MSGBUF. TITLE 
EQUIVALENCE! BUF( 1 ) , I  SETUP! 1 )> 

EQUIVALENCE! 8  INPUT, INPUT) ,! IDATA, BDATA) 

EQUIVALENCE! BOUT, OUT ) , ( BYTE . BYTES ) 

DATA  ISETUP/' 120040' 0, ' 140001 '0. ' 121000*0, ' 107777'O, ' 17777'0, 

1  '24061 '0, ' 26002 ' 0, ' 30000 ' 0 , '440000, '64777'0, ' 120000'O, 

2  '50001 '0, '70776 '0. ' 54000'O/ 

DATA  I  SETUP  2/ ' 64777 ' 0 ,  '44000'O/ 

DATA  ISETUP3/'64776'0, ' 44000 ' 0/ 

I  -  SYSSASSIGN! 'GRA0' .CHAN, . > 

IF!. NOT.  I1TYPE  ERROR  IN  GRINNELL  CHANNEL  ASSIGN' 

ISTATUS-SYSSASSIGNI  ' AVA0 '  , ITCHAN, .  ) 

IF!. NOT . I  STATUS  1TYPE  -.'  ERROR  IN  AVA  CHANNEL  ASSIGN' 

AVACSR-0 
AVAACR- ' 435 ' 0 

K  »  SVSSQIOW! XVAL! 1 ) ,  XVAL! CHAN ) ,XVAL!XLOC! IOSVRITEVBLK) ) ,  IOSB,  ,  . 
1 BUF  (  1 ) .XVAL! 28  ),,,,) 

Y-6 

X-0 

I  COUNT *0 

TITLE- 'AVA  READ  FRAME  TIME' 

DO  I-l ,512-NLINES 
I  DATA- 1 AND! ! I-l ), '377'0) 

BINPUT! I l-BDATA! 1  ) 

ENDOO 

CALL  TIMRB 
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1  ISTATUS-SYSSQIO(  XVAL( l > ,XVAL< ITCHAN > ,XVAL( XLOC< IOSREADVBLK ) ) , 

1I0SB, . , 

C  1 1 NP UT , XVAL <  NBYTES ) , XVAL ( X  > , XVAL ( Y  ) , XVAL ( AVACSR ) , XVAL ( AVAACR >  > 

1 1 NP  UT , XVAL (512-NLINES),  XVAL<  X  > , XVAL ( Y ) , XVAL ( AVACSR  > . XVAL  <  AVAACR  > ) 
IF ( AVACSR. EQ.01AVACSR-1 

C  IF( .NOT. ISTATUS.OR. .NOT. IOSB( 1 > >G0  TO  57 

WRITE  (4,54  )8INPUT 
4  FORMAT (1X,16(1X,03>) 

NUMB«5I2*NLINES 

CALL  BUFFCNVT( NUMB , B INPUT, OUT  > 

TYPE  *, 'NUMBER  OF  LINES  TO  OUTPUT- ', I0LINE 
ISTATUS  -  SYSSQIO(XVAL< 1 >. XVAL < CHAN > , 

1XVAL ( XLOC( IOSWRITEVBLK  )  ) , IOSB, , , 

1BOUT ( 1  ),XVAL( 65534),  .  . ,  ) 

ISTATUS  -  SYSSOIO( XVAL < 1  ). XVAL (CHAN), 

1 XVAL ( XLOC( IOSWRITEVBLK ) ) . IOSB, , , 

1  BOUT ( 65535 ) ,XVAL( 36866  ) , , , , > 

I F ( .NOT. ISTATUS.OR. .NOT. IOSB( 1 ) )GO  TO  57 
Y-Y  +  ( NL INES/2 ) 

I COUNT- 1  COUNT ♦ 1 
I F ( ICOUNT.EQ.4  )THEN 

ISTATUS"SYSSQIO( XVAL( 1 ),XVAL( ITCHAN ) .XVAL ( XLOC( IOSREADVBLK) ) , 

1 IOSB.  ,  . 

1 1 NPUT,XVAL< 8 192 ), XVAL ( X ), XVAL ( Y ), XVAL ( AVACSR >,XVAL( AVAACR ) ) 

NUMB-8 1 92 

CALL  BUFFCNVT( NUMB ,BINPUT,OUT) 

ISTATUS  -  SYSSQIOl XVAL ( 1 ), XVAL (CHAN). 

1 XVAL ( XLOC ( IOSWRITEVBLK)), IOSB, ,. 

1  BOUT ( 1 ) , XVAL (8192), , , ,  ) 

K  -  SVSSQIO( XVAL ( 1 ), XVAL ( CHAN ). XVAL ( XLOC ( IOSWRITEVBLK )), IOSB , , , 
3ISETUP3(1), XVAL ( 4  ) , , , ,  ) 

Y • ' 206 1 0 

X-0 

ENDIF 

I F ( 1 COUNT. EQ. 8 )THEN 
ICOUNT-0 

I STATUS-S YSSOIO( XVAL  < 1 ), XVAL ( ITCHAN >, XVAL ( XLOC( IOSREADVBLK) ) , 

1 IOSB  ,  ,  , 

1  INPUT , XVAL (8192), XVAL ( X  > , XVAL ( Y ) , XVAL (AVACSR  ) , XVAL ( AVAACR  )  ) 

NUMB-8 192 

CALL  BUFFCNVT( NUMB , BINPUT.OUT  > 

ISTATUS  -  SYSSQIOl XVAL ( 1 > , XVAL ( CHAN ) , 

1XVAL ( XLOC( IOSWRITEVBLK) ), IOSB, , , 

1  BOUT ( l ) , XVAL ( 8192  ) ,  ,  ,  .  ) 

K  »  SYSSOIO(XVAL(  l ), XVAL  (  CHAN >, XVAL ( XLOC( IOSWRITEVBLK) ). IOSB, , , 

1 ISETUP2( 1  ) , XVAL ( 4  ) , , , ,  ) 

CALL  TIMRE 

CALL  HEADER! TITLE  ) 

CALL  TIMRB 
Y-6 
ENDIF 
GO  TO  1 

57  CONTINUE 
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I STATUS-SYS SGETMSG  (XVAL! ISTATUS > ,  MSGLEN,  MSGBUF , , > 

TYPE  *,•  ISTATUS-’  .ISTATUS.-'  IOSB! 1 >-', IOSB! 1 > 

TYPE  ISTATUS-1 . ISTATUS, ‘  IOSBU , IOSB( 1 ) 

I F ( .NOT. ISTATUS )  TYPE  - , ' ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  *.'010  PARAMETER  STATUS MSGBUF 
MSGBUF-'  1 

I  STATUS -SYS SGETMSG  ( XVAL! IOSB< 1 ) ) ,  MSGLEN,  MSGBUF,.) 

IF( .NOT. ISTATUS )  TYPE  -.'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  -.'I/O  STATUS: ' .MSGBUF 
STOP 

Cll  FORMAT! IX , ' INPUT- ' ,06 , 2X , ' IOSB-'  , 06 , 2X .06 , 2X , 06 . 2X ,06  ) 

K  -  SYSSQIOW! XVAL  < 1 ) , XVAL ( CHAN ) , XVAL ( XLOC! I OSWR ITE VBLK ) ) , IOSB , , 
1ISETUP3, XVAL ( 4  ) , . ,  ,  > 

END 

SUBROUTINE  BUFFCNVT! NUMB , B I NPUT , OUT  ) 

BYTE  BINPUT! 1  ),BYT£<2> 

INTEGER-2  OUT! 5 1 3 , 1) , BYTES , SLU 
EQUIVALENCE ( BYTES , BYTE  ) 

DATA  SLU/ ' 3401 1  0/ 

1-0 

IOLINE-l 

DO  100  I X- 1 , NUMB 
1-1*1 

IF! I . EQ . S 1 2  )THEN 
BYTE! 1 l-BINPUT! IX) 

OUT! I . IOLINE  l-BYTES 
C  WRITE (6,34)  I . IOLINE, OUT! I. IOLINE ) 

OUT!  1*1 , IOLINE  )-SLU 

C  WR I TE ( 6 , 34 )  I ♦ 1 . IOL INE , OUT! I ♦ 1 . IOL I NE > 

1-0 

IOLINE-IOLINE+1 
GO  TO  100 
END  IF 

BYTE! 1 J-BINPUT! IX) 

OUT! I , IOLINE )- IAND! NOT! BYTES). '377 '0) 

C  WRITE (6,34)  I , IOL INE .OUT! I , IOL INE  ) 

34  FORMAT! IX. 13, IX. 13, 2X, 06) 

100  CON'INUE 

RETURN 
END 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

THIS  PROGRAM  IS  USED  TO  FIND  OUT  WHAT  DISK  WRITE  TIMING  IS  REQUIRED 
TO  ALLOW  EVERY  FIELD  TO  BE  WRITTEN  TO  DISK. 

NO  I/O  TO  DISK  OCCURS  IN  THIS  PROGRAMI  THE  DISK  I/O  TIME  IS  SIMULATED 
WITH  A  DELAY  ROUTINE . 

THE  AVA  READS  STILL  HAPPEN  SO  THE  HBR-3000  MUST  BE  ON  AND  RUNNING 
AT  3  3/4  OR  1  7/8. 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
EXTERNAL  IOSURITEVBLK, IOSREAD VBL K , MI TLS 1 
INTEGER*2  BUF<  200). I  SETUP! 14) ,SLU, IOSB! 4 ) 

INTEGER  SYSSASSIGN ,  SYSSQIOW,  CHAN.SYSSQIO.SYSSWAITFR 

CHARACTER"! 6  TIME .TIME2 

INTEGER  SYSSGETMSG , MSGLEN , I  STATUS 

INTEGERS  X,Y,YA(4) , SYSSDASSGN 

INTEGER*2  BYTES 

INTEG£R*2  OUTPUT . I N IT< 4  ) 

INTEGER*2  INPUT<65536) 

C  BYTE  BINPUTI 32768  > 

BYTE  BINPUT! 131072) 

I NTEGER  A VAC SR , AVAACR . SYSSLKWSET, INtOCK! 2 ) , IQLOCKl 2 ) 

INTEGER*2  I  SETUP  2! 2 > , ISETUP3! 2 > 

CHARACTER  *80  MSGBUF 
CHARACTER*60  TITLE ,FNAME*60 
CHARACTER*60  NAME 
INTEGER*2  BUF F ERL , DE VCODE 
INTEGER  SYSSGETDVI , DVISFREEBLOCKS 
INTEGER  IFREE 
INTEGER  BUFFERA.ZERO 
COMMON/PRACHAN/ IDISK 

COMMON/ ITEMLI ST/BUFF ERL. DE VCODE, BUFFERA.ZERO 
COMMON/AVACHAN/ ITCHAN 
EQUIVALENCE! BUF ( I  ) , I  SETUP! I  )  ) 

EQUIVALENCE! B INPUT, INPUT) 

DATA  TIME  /'0000  00:00:00.02'/ 

DATA  TIME2/ ' 0000  00:00:00.01'/ 

DATA  YA/6 , ' 206 ' 0 , ' 406 ' 0 , ' 606 ' 0/ 
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DATA  DV I SF REEBLOCKS/  '  0000002A '  X/  .  ZE RO/0/ 

DATA  I  SETUP / ' 1 20040' 0, ’ 140001 '0, *  121000' 0, 1 107777 '0, ' 17777 '0, 

1  '24061 ‘0, ' 26002 '0, ' 30000' 0, ' 44000 '0, '64777 '0, ' 120000' 0, 

2  ' 50001' 0. '70776 '0, '54000 ’0/ 

DATA  ISETUP2/'64777'0, ' 44000' 0/ 

DATA  ISETUP3/'64776‘0, ' 44000 ' 0/ 

I  -  SYSSASSIGN1 'GRA0' .CHAN, . > 

I F  <  . NOT .  I  ITYPE  * , '  ERROR  IN  GRINNELL  CHANNEL  ASSIGN' 

I STATUS-SYSSASS IGN (  ' AVA0' , ITCHAN. .  ) 

I F  <  . NOT . I  STATUS >TYPE  ERROR  IN  AVA  CHANNEL  ASSIGN' 

TITLE-'  READ  AVA  BUFFER  AND  WRITE  TO  DISK  TIME' 

NAME  - ' D I SKSAVA  *  ' 

BUFFERL-4 

DEVCOOE-OVISFREEBLOCKS 
BUFFERA-XLOC( I  FREE > 

RETURNLA-XLOC( RETURNL  ) 

ISTATUS-SYSSGETDVK  XVAL< 3  > , , NAME , BUFF  ERL . . ,  .  ) 

IF( .NOT. 1STATUSITYPE-, 'PARAMETER  ERROR  IN  GETDVI ' 

I STATUS-SYSSWA ITFR( XVAL ( 3 >  ) 

TYPE  », 'BLOCKS  FREE  FOR  IMAGE  STORAGE- '. IFREE 
MAX  IMAGES- 1  FREE/5 13 

TYPE  -.'MAXIMUM  NUMBER  IMAGES  THAT  CAN  BE  STORED- ' .MAXIMAGES 


MAX  I  MAGE  S-50  [THIS  IS  FOR  DEGUG  ONLY 

NIMAGES-MAXIMAGES 
I NS2-N I  MAGES -5 1 3 

F NAME  - ' D I SKSAVA: tAVA] IMAGES . DAT ' 

OPEN< UN  IT-30, NAME-FNAME . TYPE- ' UNKNOWN ' . 

1F0RM-' UNFORMATTED'  ,  I N  IT  I ALS IZE- I NSZ , USER0PEN-M1 TLS 1 . 
2REC0RDTYPE-’ FIXED' , RECORDS  I ZE -4096  > 

ISTATUS-SYSSASSIGNl  ' AVA0' .AVACHAN, ,  ) 

IF(  .NOT. ISTATUS  iTYPE  ERROR  IN  AVA  CHANNEL  ASSIGN' 

INLOCKI 1  I-XLOC ( B I NPUT< 1  )  ) 

INL0CK1  2)-XL0C(BINPUT<  131072 ) ) 

K-SYS5LKUS£T( INLOCK, IOLOCK, > 

TYPE  INLOCK(l)-  ' , I NL0CK1 1  ) ,  '  INL0CK12)-  ',INL0CK(2> 

TYPE  IOLOCK(l)-  ' , IOLOCK! 1  ), ’  I0L0CK(2>-  '.I0L0CK12) 

IF (  . NOT . K  ITYPE  UNABLE  TO  LOCK  BUF  ' 

AVACSR-0 
AVAACR- ' 4 1 5 ' 0 

K  »  SYSSQ IOW( XVAL ( 1 >, XVAL (CHAN ) ,XVAL(XLOC( I0SWR1TEVBLK ) ) . IOSB, , , 
1 BUF (  1 ) ,XVAL( 28 
IEVFO-4 
IMAGE  N- 1 
I  BLOCK- 1 
CALL  TIMRB 
X-0 

CALL  FIELDC I F I  ELD , AVACSR ) 

ICURR-IFIELD 
C  TYPE  *, ' ICURR- ' . ICURR 
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11  CALL  FIELD( IF  I  ELD .AVACSR ) 

IF<  1FIEL0.EQ. ICURRJGO  TO  11 

ISTOREFIELD-ICURR  ICURRENT  FIELD  TO  PUT  ON  DISK 

ICURR-IFIELD  ICURRENT  FIELD  BE  LOADED  INTO  THE  AVA 

TYPE  ' ICURR-' , ICURR, 1 ISTOREFIELD- 1 . 1ST0REF IELD 
GO  TO  11 

Y-YA< ISTOREFIELD*! ) 

ICOUNT-8 

I STATUS-S YSSQ I 0W( XVAL! 1 >,XVAL( ITCHAN ) ,XVAL( XLOC( IOSREADVBLK  > ) , 

1 IOSB , , . 

1  INPUT , XVAL (  32768  ) , XVAL ( X  > , XVAL ( Y ) , XVAL (AVACSR ), XVAL ( AVAACR ) > 

IF! AVACSR. EQ.0JAVACSR-1 
CALL  DELAY! TIME  ) 

ISTATUS-SYSSQIOIXVAL! IEVFO) .XVAL! I  DISK ) , XVAL < XLOC! IOSWRITEVBLK) > , 

1 IOSB , , . 

IB  INPUT! 1 ). XVAL! 32768), XVAL! I  BLOCK), , , ) 

IBLOCK-IBLOCK+64 

Y-Y+32 

I STATUS-S YSSQIOW! XVAL ! 1 ),XVAL! ITCHAN >, XVAL ( XLOC! IOSREADVBLK)  >, 

1IOSB, , , 

1 B INP UT< 32679 ), XVAL 1 32768 ), XVAL < X>. XVAL IY>, XVAL! AVACSR), XVAL (AVAACR)) 
CALL  DELAY! TIME  ) 

ISTATUS-SYSSOIO! XVAL! IEVFO), XVAL! IDISK ), XVAL! XLOC! IOSWRITEVBLK)  ) , 

1 IOSB  ,  .  , 

IB  INPUT! 326 79), XVAL (32768), XVAL! IBLOCK), ,  ,  ) 

I  BLOCK* I  BLOCK* 6 4 
Y-Y+32 

I STATUS-S YSSQ IOW! XVAL ( 1 ),XVAL( ITCHAN ), XVAL ( XLOC ( IOSREADVBLK) >, 

1IOSB,  ,  , 

l BINPUT! 65537  ), XVAL (32768), XVAL! X > ,XVAL( Y > ,XVAL( AVACSR), XVAL (AVAACR)) 
CALL  DELAY ( TIME  ) 

I  STATUSES YSSQ IO( XVAL! IEVFO  > .XVAL! IDISK  >, XVAL! XLOC! IOSWRITEVBLK  )  ) , 
1I0SB, , , 

1BINPUT! 65S37) ,XVAL( 32768 ) ,XVAL( IBLOCK), , . ) 

IBLOCK-IBLOCK+64 

Y-Y+32 

I STATUS-S YSSQIOW! XVAL ( 1 ),XVAL( ITCHAN ), XVAL ( XLOC ( IOSREADVBLK  )  ) , 

1 IOSB. ,  , 

1BINP UT< 98385 ), XVAL! 24576  ), XVAL! X).XVAL(Y), XVAL! AVACSR), XVAL (AVAACR)) 
CALL  DELAY! TIME2) 

I STATUS-S YSSQ 10! XVAL! IEVFO) , XVAL! I D ISK  > , XVAL ( XLOC ( IOSWRITEVBLK ) ), 

1 IOSB, , , 

1BINPUT! 98385 ) .XVAL! 24576 ) .XVAL! IBLOCK) , , , > 

IBLOCK-IBLOCK+48 

IF ( AVACSR . EQ .8 1AVACSR-1 

WRITE  ( 4,54)BINPUT 
4  FORMAT! IX  >6! IX, 03)) 

NUMB- 32768 

CALL  BUFFCNVT! NUMB, BINPUT, OUT) 

ISTATUS  »  S YSSQ 10! XVAL (  1  ) , XVAL ( CHAN  > , 

1 XVAL (XLOC! IOSWRITEVBLK) ), IOSB, , , 
l BOUT! 1 ) ,XVAL( 65534  ) , , ,  ,  ) 

ISTATUS  «  S YSSQ 10! XVAL ( 1 ), XVAL ( CHAN ) , 
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1XVAL  (  XLOC< IOSWRITEVBLK)  ). IOSB,  ,  , 

1 BOUT{ 65535 ),XVAL< 130), ... ) 

IC0UNT-IC0UNT*1 
I F <  ICOUNT .  NE  .  4 )G0  TO  1 
CALL  FIELD* IF IELD . AVACSR ) 

IF <  IFIELD.EQ. ICURRJTHEN 
I F< IMAGEN . EQ. MAX  I  MAGES 1THEN 
I STATUS » SYS SWA  I TFR* XVAL ( 1 ) ) 

IF( .NOT. ISTATUS JTYPE  *,*  ERROR  IN  TIME  DELAY’ 

TYPE  *,  ’  I/O  COMPLETE . ’ 

CALL  TIMRE 

CALL  HEADER*  TITLE ) 

I STATUS-SYSSDASSGN*  XVAL*  IDISK)  > 

CLOSE*  UNIT-30) 

TYPE  *,  IMAGEN,’  FIELDS  WRITTEN  TO  DISK’ 

STOP  ’ALL  IMAGES  WRITTEN  TO  DISK' 

END  IF 

IMAGEN-IMAGEN+1 
GO  TO  11 
ELSE 

TYPE* , ' FATAL  ERROR _ •**« _ I/O  TO  SLOW 

TYPE  * , ' BLOCK  NUMBE R- ’ , I  BLOCK 

TYPE  *, ' ICURR-’ , ICURR, ’  IF IELD- ', I F IELD 

TYPE  ‘.IMAGEN,’  FIELDS  WRITTEN  TO  DISK’ 

CALL  TIMRE 

CALL  HEADERfTITLE ) 

I  STATUS-S Y  SSDASSGN  < XVAL* IDISK) ) 

CLOSE*  UNIT-30) 

STOP 

ENDIF 

7  CONTINUE 

I  STATUS -SYSSGETMSG  < XVAL < I  STATUS  ) ,  MSGLEN,  MSGBUF  ,  ,  > 

TYPE  *,’  ISTATUS-'  .ISTATUS, ’  IOSB* 1 >*', IOSB* 1  ) 

TYPE  *,'  ISTATUS-’ , ISTATUS, ’  IOSB* 1 >-’, IOSB* 1  ) 

IF* .NOT. ISTATUS)  TYPE  * , ' ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  *.’010  PARAMETER  STATUS :’, MSGBUF 
MSGBUF-'  ' 

I STATUS-S YSSGETMSG  I XVAL ( IOSB* 1 ) ) ,  MSGLEN,  MSGBUF,,) 

IF* .NOT. ISTATUS )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'I/0  STATUS: ’ .MSGBUF 
STOP 

11  FORMAT* IX, ' INPUT-' ,06,2X, ' IOSB-' , 06 , ZX , 06 , 2X , 06 , 2X , 06 > 

K  -  SYSSQIOW*XVAL( 1 ) ,XVAL(CHAN>, XVAL* XLOC* IOSWRITEVBLK )), IOSB, , 
1ISETUP3, XVAL ( 4 ) , , , , ) 

END 

SUBROUTINE  DELAY*  TIME ) 

DOUBLE  PRECISION  QUAD 

INTEGER  SYSSBINTIM.SYSSSETIMR, SYSSWAITFR 

CHARACTER* 1 6  TIME 

RETURN 

TIME- '0000  00:00:00.50' 

ISTATUS-SYSSBINTIM*  XDE SCR* TIME  > .QUAD > 

IF* . NOT. I  STATUS )TYPE  *,'  ERROR  IN  TIME  DELAY’ 
ISTATUS-SYSSSETIMR*  XVAL*  6 ) .QUAD , ,  ) 

IF* .NOT. ISTATUS JTYPE  *,’  ERROR  IN  TIME  DELAY’ 
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ISTATUS-SYSSWAITFR!  XVAL! 6 ) ) 

IF! .NOT. ISTATUS1TYPE  *.'  ERROR  IN  TIME  DELAY' 

RETURN 

END 

SUBROUTINE  BUFFCNVT!  NUMB, B INPUT, OUT ) 

BYTE  BINPUT! 1 >,BYTE<2> 

INTEGER*2  0UT{ 5 13 . 1  ) . BYTES . SLU 
EQUIVALENCE! BYTES, BYTE  ) 

DATA  SLU/' 34011 '0/ 

1-0 

IOLINE-1 

DO  100  I X- 1 , NUMB 
1-1*1 

IF! I . EO. 512  >THEN 
BYTE! 1  ) -B I NPUT! IX  ) 

OUT! I .IOLINE J-BYTES 

C  WRITE ! 6 , 34 )  I , IOL INE .OUT! I , IOL INE  > 

OUT! 1  +  1 , IOLINE  >-SLU 

C  WRITE ! 6 , 34  )  I  + 1 . 1 OL INE . OUT! I ♦ 1 , IOL I NE  ) 

1-0 

I0LINE-I0LINE+1 
GO  TO  100 
END  I F 

BYTE! 1  l-BINPUT! IX) 

OUT! I , IOLINE )-IAND( NOT! BYTES), ’ 377’0> 

C  WR I TE ( 6 , 34 )  I , IOLINE. OUT! I .IOLINE  ) 

34  FORMAT! IX, 13, IX, 13. 2X. 06) 

100  CONTINUE 

RETURN 
END 

SUBROUTINE  FIELD! IF IELD .AVACSR  ) 

INTEGER  AVACSR 

EXTERNAL  IOSWRITEVBLK, IOSREADVBLK 
INTEGER  SYSSASSIGN, SYSSQIOW , SYSSQ 1 0 
INTEGER  SYSSGETMSG 
I NTEGER*2  IOSB! 4 ) .MSGLEN . NPUT, X , Y 
I NTEGER*2  INPUT, OUTPUT.  INITU) 

CHARACTER  *80  MSGBUF 
COMMON/AVACHAN/ ITCHAN 
DATA  IFIRST/1/ 

I  SAVE -AVACSR 
IF! IF IRST1THEN 

AVACSR-’ 4000' 0  1  SET  MEMORY  WINOOW  ENABLE  AND  INITIALIZE  AVA 

IF IRST-0 

ELSE 

AVACSR-' 4001 ’0 
ENDIF 

ISTATUS-SYSSQIOW! XVAL! 1 ),XVAL! ITCHAN >, XVAL ( XLOC! IOSREADVBLK) ) , 
1 IOSB, , , 

10UTP UT , XVAL (  2 ) , XVAL ! X ) , XVAL ! Y ) , XVAL ( AVACSR  > , XVAL I IAVAACR  )  > 

IF! AVACSR. EQ. ' 4000' 0 >AVAC SR- ' 4001 ' 0 
I F ( I  STATUS )  GO  TO  501 

TYPE  *,'  ERROR  IN  QIOW  CALL' 

ISTATUS-SYSSGETMSG  I XVAL! I  STATUS  ) ,  MSGLEN,  MSGBUF,,) 
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IF< .NOT. ISTATUS >  TYPE  “.'ERROR  IN  CALL  TO  SGETMSG ' 
TYPE  * , ' QIO  PARAMETER  STATUS s ' .MSGBUF 
MSGBUF  * '  ' 

ISTATUS*SYS$GETMSG  ( XVAL ( IOSB( 1  )  )  ,  MSGLEN,  MSGBUF,.) 
IF< .NOT. ISTATUS)  TYPE  “.'ERROR  IN  CALL  TO  SGETMSG' 
TYPE  “.’I/O  STATUS: ' .MSGBUF 
501  AVACSR-ISAVE 

IF  I ELDaIAND( OUTPUT, 3 ) 

RETURN 

END 
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EXTERNAL  IOSWRITEVBLK. IOSREADVBLX 
INTEGtR*2  BUF! 200) , I  SETUP ( 1 4  > , SLU , IOSB( 4  > 

INTEGER  SYSSASSIGN,  SYSSQIOW,  CHAN . S YSSQ 10 . SYSSWA ITFR 
INTEGER  SYSSGETMSG .MSGLEN , ISTATUS 
INTEGER«2  OUT( 5 13 , 64  ) , X  ,  Y 
BYTE  BOUT (65664),BYTE(2) 

I NTEGER*2  BYTES 
INEGER*2  OUTPUT, INIT<4> 

I NTEGER*2  INPUT!  16384) 

INTEGER  IERROR! 512 ) 

BYTE  BINPUT! 32768  ) , BDATA! 2 ) , DATAIN , DATA! NA( 4  > 

INTEGER*2  IDATA 
INTEGER  AVACSR , AVAACR 
INTEGER*2  I SETUP2! 2  ) . I SETUP3! 2  ) 

CHARACTER  *80  MSGBUF, TITLE 
EQUIVALENCE! BUF( 1  ), I  SETUP! 1 >  > 

EQUIVALENCE! B INPUT, INPUT) ,1 IDATA, BOATA) 

EQUIVALENCE! BOUT, OUT ) , ( BYTE , BYTES ) 

DATA  ISETUP/ ' 120040'O, ' 140001'O, ' 121000'O, ‘ 107777‘O, ' 17777'0, 

1  ‘24061 ‘0, ' 26002 '0, ' 30000' 0, ' 44000*0, ‘ 54777 '0. ' 120000' 0, 

2  '50001 '0. '70776 ‘0, ' 54000 ‘0/ 

DATA  ISETUP2/'64777'0, ' 44000' 0/ 

DATA  IS£TUP3/'64776'0, '44000*0/ 

I  -  SYSSASSIGN! 'GRA0' .CHAN, , ) 

IF!. NOT.  I  )TYPE  *,'  ERROR  IN  GRINNELL  CHANNEL  ASSIGN' 

I  STATUS* SYSSASS I GN!  ' AVA0 '  , ITCHAN, ,  ) 

IF!  .NOT. ISTATUS  )TYPE  ERROR  IN  AVA  CHANNEL  ASSIGN' 

AVACSR-0 
AVAACR-' 435 '0 

K  -  SYSSQIOW! XVAL ( 1 ),XVAl< CHAN) ,XVAL(XLOC! IOSWRITEVBLK) ), IOSB, 
1 BUF ! 1  )  , XVAL! 28  ),,,,) 

ITESTN-t 

I E  RRORC-0 

DATA  I NA( 1 » - '  1 25 ' 0 

DATA  I NA! 2  )  -  0 

DATAINA(3)*'252'0 

DATAINAI4)-'377'0 

DATAIN-' 1 25 ' 0 

DATA  I N-OATAI NA( ITESTN) 

DO  1*1,32768 
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8INPUTI I )-DATAIN 
ENDOO 

177  V-6 

X-0 

ICOUNT»j0f 

TITLE” ‘ F OUR  FIELD  WRITE  TO  AVA* 

C  CALL  TIMRB 

1  ISTATUS«SYSSQIO< XVAL ( 1 >,XVAl( ITCHAN ) , XVAL ( XLOCI IOSWRITEVBLK) > , 

1 IOSB ,  ,  , 

C  II NP UT . XVAL (MBYTES), XVAL <  X  ) , XVAL ( Y ) , XVAL ( AVACSR  > , XVAL ( AVAACR  )  ) 

1  INPUT , XVAL ( 32768 ) , XVAL ( X  > , XVAL <  Y ) , XVAL ( AVACSR  > , XVAL ( AVAACR  )  ) 
IF< AVACSR. EQ. 8 )AVACSR«1 

C  1F( .NOT. ISTATUS.OR. .NOT. IOSB( 1 >  )GO  TO  57 

C  WRITE  ( 4 , 54 )B I NPUT 

54  FORMAT (1X,16(1X,03)) 

NUMB-32768 

CALL  BUFFCNVTf NUM8 , B I NPUT , OUT ) 

TYPE  •.'NUMBER  OF  LINES  TO  OUTPUT” IOL I NE 
ISTATUS  ■  SYS3Q IO( XVAL ( 1 ) , XVAL ( CHAN  ) , 

1 XVAL ( XLOC< IOSWRITEVBLK  )  ) , IOSB, , , 
lBOUTf 1 ), XVAL (65534), , , .  ) 

ISTATUS  -  SYSSQ IO( XVAL ( 1 ) , XVAL ( CHAN  ) , 

1 XVAL (  XLOC ( IOSWRITEVBLK) ) , IOSB, . . 

1  BOUT ( 65535 ) , XVAL ( 130), , , ,  ) 

IF( .NOT. ISTATUS.OR. .NOT. IOSBI 1 > >GO  TO  57 
Y*Y*32 

I COUNT” I COUNT + 1 
I F (  I  COUNT. EQ. 4 (THEN 

I STATUS-SYSSQIO( XVAL ( 1 ) , XVAL ( ITCHAN > ,XVAL( XLOC( IOSREADVBLK  > ) , 

1 IOSB ,  ,  , 

1 1 NPUT , XVAL (8192), XVAL < X ) , XVAL ( Y  > , XVAL (AVACSR > , XVAL ( AVAACR  ) ) 
NUMB*  8 1 92 

CALL  BUF FCNVT ( NUMB ,BINPUT,OUT) 

ISTATUS  -  SYSSQ 1 0<  XVAL ( 1 ) , XVAL ( CHAN  ) , 

1 XVAL ( XLOC( IOSWRITEVBLK)), IOSB. , . 

1  BOUT ( 1  ) , XVAL (8192), , , ,  ) 

K  -  SYSSQ 1 0(  XVAL ( 1 ) , XVAL ( CHAN ) , XVAL( XLOCI IOSWRITEVBLK ) ) , IOSB , , 
1 ISETUP3I 1  ) , XVAL ( 4  ) ,  ,  , ,  ) 

Y” 1 206 ' 0 
X«0 
END  I F 

I F ( IC0UNT.EQ.8  JTHEN 

I STATUS«SYS$QIO( XVAL( l ) ,XVAL( ITCHAN  )  .XVAL ( XLOCI IOSREADVBLK)  ) , 

1 IOSB  ,  ,  , 

1 1 NPUT , XVAL (8192), XVAL { X ) , XVAL  <  Y ) , XVAL ( AVACSR  ) , XVAL ( AVAACR  ) ) 
NUMB-8192 

CALL  BUF FCNVT ( NUMB , B I NPUT , OUT ) 

ISTATUS  »  SYSSQ 1 0( XVAL (  1  ) , XVAL ( CHAN  ) , 

I XVAL (XLOCI IOSWRITEVBLK) ) , IOSB, , . 

28CUTI 1 >,XVAl( 8192), , , , > 

K  •  SYSSQIO< XVALf 1  )  .XVALICHAN ) ,XVAL< XLOCI IOSWRITEVBLK) ), IOSB, , 
1 ISETUP2I l  )  ,XVAL<  4  ),,,,) 

Y- ' 406 ' 0 
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ENDIF 

IF ( ICOUNT.EQ. 16>THEN 

V- • 606 ' 0 

ENDIF 

IF ( ICOUNT.EQ. 24 )THEN 

CCCCCCCCCCC  READ  AVA  BACK  NOW  AND  SEE  IF  THE  DATA  IS  THE  SAME  CCCCCC 
C 

ICOUNT-0 

Y-6 

X*0 

SI  ISTATUS-SYSSOIOWOIVAL!  1  j.xval*  itchani.itvauxloc!  IOSREADVBLK)), 

1IOSB,  .  . 

UNPUT.XVAL! 32768 ) ,%VAL(X t.XVAL! Y )  ,XVAL( AVACSR ) ,XVAL(AVAACR  ) ) 

IF < AVACSR. EQ.0IAVACSR-1 
DO  IADO-1, 32768 

I F ( BI NPUT! IADD).NE.DATAIN)THEN 
1 1 ADD- I AUDI IADD.  1 777 ‘ 0  > 

WRITE ( 6 , 12 )DATAIN, B INPUT! IADD > . 

1 IAND( IADD  , ' 777 ' 0  > 

I  ERROR! I IADD  )« IERROR! 1 IADD )  + 1 
IERRORC-IERRORC+1 
ENDIF 

12  FORMAT! IX, 'AVA  MEMORY  ERROR.  INPUT-  ', 03 , 2X ,' OUTPUT-  ’,03, 

1SX. 'COLUMN-  ',15) 

ENDDO 

C  TYPE  ERROR  COUNT  AFTER  FIELD  «•*»', IERRORC , ICOUNT 


Y-Y+32 

ICOUNT- 1  COUNT ♦ 1 

IF( ICOUNT. EQ.4ITHEN 

WRITE (6,56)  IERRORC , DATA I N 

56  FORMAT! IX. ‘  ERROR  COUNT  IN  FTELO  I-', IS.’  DATA  IN-  ’.03) 

IERRORC-0 
Y- 1 206 1 0 
X-0 
ENDIF 

IF! ICOUNT. EQ.8)THEN 
WRITE (6, 157) IERRORC, DATAIN 

157  FORMAT ( 1 X , '  ERROR  COUNT  IN  FIELD  2-,,I5,‘  DATA  IN-  ‘.03> 

IERRORC-0 
Y» ' 406 ' 0 
ENDIF 

IF! ICOUNT.EQ. 16  1THEN 
Y - ' 606 1 0 

WR I TE  (  6 , 58 ) I ERRORC , DATA  I N 

58  FORMAT! IX,'  ERROR  COUNT  IN  FIELD  3-’,I5,'  DATA  IN-  ’,03) 
IERRORC-0 

ENDIF 

IF! ICOUNT. EQ.24)THEN 
WRITE! 6. 59) I ERRORC, DA TAIN 

59  FORMAT! IX,'  ERROR  COUNT  IN  FIELD  4-', 15,'  DATA  IN-  '.03) 
IERRORC-0 

DO  IADD- 1 ,512 

IF! IERROR! IADD ) . NE .0 )WR ITE(6,233)IA00, 
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1  IERROR! IADD ) , DATAIN 

233  FORMAT* IX, ’COLUMN' ,14, '  ERRORS-  ',16.'  DATA  IN-  ’,03) 

ENODO 

IERRORC-0 

DO  IAOD-1,512 

IERROR! IADD  >«0 

ENDDO 

ICOUNT-0 

V-6 

ITESTN-ITESTN+1 
I F ( ITESTN .GT . 4  )  ITESTN-1 
DATA  I N-DATAINA< ITESTN) 

DO  1=1,32768 

BINPUT! I >- DATA IN 

ENDDO 

GC  TO  177 

END  I F 

GO  TO  51 

ENDIF 

GO  TO  1 

57  CONTINUE 

ISTATUS-SYSSGETMSG  (XVAL! ISTATUS > ,  MSGLEN,  MSGBUF , ,  ) 

TYPE  *,*  ISTATUS-' . ISTATUS, '  IOSBl 1 >- 1 , I0SB1 1) 

TYPE*.'  ISTATUS-' , ISTATUS, '  IOSBl 1 >-', IOSBl 1  ) 

IF! .NOT. ISTATUS  )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  * , ' QIO  PARAMETER  STATUS: ' .MSGBUF 
MSGBUF-'  ' 

I STATUS-SYS SGETMSG  ( XVALl IOSBl 1 )) ,  MSGLEN,  MSGBUF ,,  > 

IF( .NOT. ISTATUS >  TYPE  *. 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'I/0  STATUS: 1 .MSGBUF 
STOP 

Cl!  FORMAT! IX, ' INPUT-' ,06, 2X, ' IOSB-' , 06, 2X ,06 , 2X ,06 , 2X , 06 ) 

X  .  SYSSOlOUt XVAL 1 1 ) , XVAL I  CHAN ) , XVAL 1  XL  OC ( I OSWR ITEVBLK)>,I0SB, 
1ISETUP3, XVAL (  4  ) ;  ,  ,  ,  ) 

END 

SUBROUTINE  BUFFCNVTl NUMB , B I NPUT , OUT  ) 

BYTE  BINPUT1 1  ), BYTE  12) 

INTEGER*2  OUT! 513 , 1 ), BYTES , SLU 
EQUIVALENCE! BYTES. BYTE  ) 

DATA  SLU/ '3401 1 '0/ 

1-0 

IOLINE-1 

DO  100  I X- 1  ,  NUMB 
I-I  +  l 

IF!  I . EQ . 51 2  )THEN 
BYTE! 1 l-BINPUT! IX) 

OUT! I , IOLINE  )-BYTES 
C  WRITE ! 6 , 34  )  I , IOL INE , OUT! I , IOL INE  ) 

OUT! 1  +  1 , IOLINE  l-SLU 

C  WRITE ! 6 , 34  )  I  +  l , IOLINE, OUT! I  +  I , IOLINE  ) 

1-0 

IOL INE-IOL INE+ 1 
GO  TO  100 
ENDIF 

BYTE! 1  )»BINPUT1 IX) 
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OUT< I , IOL INE >-IAND< NOT<  BYTES  > . ' 377 ’O  ) 
C  WRITE ( 6 , 34 )  I , IOLINE , OUT( I , IOIINE  > 

34  FORMAT! IX, 13, IX, 13, 2X, 06) 

100  CONTINUE 

RETURN 
END 
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EXTERNAL  IOSWRITEVBLK, IOSREADVBLK 
INTEGER*2  BOF( 200) . I  SETUP! 14 ) , SLU, IOSB<  4  > 

INTEGER  SYSSASSIGN,  SYSSQIOW,  CHAN , SYSSQIO , SYSSWAITFR 
INTEGER  SYSSGETMSG .MSGLEN , ISTATUS 
INTEGER*2  OUT( 513 , 64  ) , X , Y 
BYTE  BOUT <65664), BYTE<2) 

INTEGER*2  BYTES 
INTEG£R*2  OUTPUT, INIT!4) 

INTEGER*2  INPUT! 16384) 

INTEGER  IERROR! 512  ) 

BYTE  BINPUT <32768), POATA! 2 ) , DATAIN, OATAINA! 4 ) 

INTEGER*2  IDATA 
INTEGER  AVAC S R , AVAACR 
I NTEGER*2  I  SETUP 2( 2 > . I SETUP3! 2  ) 

CHARACTER  *80  MSGBUF, TITLE 
EQUIVALENCE! BUF! 1  ) , ISETUP! 1  )  ) 

EQUIVALENCE! BINPUT, INPUT) ,< IDATA, BDATA) 

EQUIVALENCE! BOUT, OUT  ) , <  BYTE .BYTES  > 

DATA  ISETUP/' 1 20040'Q, ' 140001 ‘0. ' 121000' 0, ' 107777 '0, ' 17777 '0, 

1  '24061 '0, ' 26002 '0, ' 30000-0, ' 44000' 0, ' 64777 '0, ' 120000' 0, 

2  '50001*0, '70776'O, '54000'O/ 

DATA  ISETUP2/ ' 64777 '0, '44000'O/ 

DATA  ISETUP3/'64776'0, ' 44000 ' 0/ 

I  -  SYSSASSIGN!  'GRA0* , CHAN, ,  ) 

IF!. NOT.  I)TYPE  ERROR  IN  GRINNELL  CHANNEL  ASSIGN' 

ISTATUS-SYSSASSIGN!  ' AVA0 '  .ITCHAN,,  ) 

IF! .NOT. ISTATUS  1TYPE  *,'  ERROR  IN  AVA  CHANNEL  ASSIGN' 

AVACSR-0 
AVAACR- ' 435'0 

K  -  SYSSQIOW! XVAL! 1 > , XVAL i CHAN ) , XVAL! XLOC! IOSWRITEVBLK  > ) , IOSB , , , 
1BUF! 1  ) , XVAL ( 28  ) , , , ,  ) 

ITESTN-1 

IERRORC-0 

OATAINA! 1 )«' 125 '0 

DATAINA! 2 )-0 

OATAINA! 3)-' 252 '0 

DATA  I NA<4)-’377'0 

DATAIN-' 125 ' 0 

DATA IN -DATAINA! ITESTN) 

DO  1-1,32768 
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BINPUTI I I-DATAIN 
ENOOO 

177  Y-6 

X-0 

ICOUNT-0 

TITLE  - '  FOUR  FIELD  WRITE  TO  AVA' 

C  CALL  TIMRB 

1  ISTATUS-SYSSQIO( XVAL( I > ,XVAL< ITCHAN ) , XVAL ( XLOC( IOSWRITEVBLK  )  ) , 

1I0SB,  ,  . 

C  1 1 NP  UT , XVAL ( NBYTES ) , XVAL <  X ) , XVAL ( Y ) , XVAL ( AVACSR > . XVAL ( AVAACR ) ) 

1 1 NP  UT , XVAL ( 32768  ) , XVAL  <  X  ) , XVAL  ( Y  ) , XVAL ( AVACSR  > , XVAL ( AVAACR ) ) 

I F ( AVACSR . EQ , 0  )  AVACSR- 1 

C  IF< .NOT. ISTATUS.OR. .NOT. IOSBI 1 ) >GO  TO  57 

C  WRITE  ( 4 , 54  )B I NPUT 

54  FORMAT! IX, 16(  IX, 03)  ) 

NUMB-32768 

CALL  BUFFCNVT! NUMB , B I NPUT .OUT ) 

TYPE  *, 'NUMBER  OF  LINES  TO  OUTPUT- ' , I OL I NE 
ISTATUS  -  S YSSOIOt XVAL ( 1 >, XVAL (CHAN), 

1 XVAL  <  XLOC ( IOSWRITEVBLK)  ), IOSB, , , 

1  BOUT ( 1  )  ,XVAL<  65534  ),,,,) 

ISTATUS  -  SYSSOIO(XVAL( 1), XVAL (CHAN). 

1 XVAL ( XLOC( IOSWRITEVBLK)  ), IOSB. . , 

1B0UTI 65535 ) ,XVAL( 130) .... ) 

IF( .NOT. ISTATUS.OR. .NOT. I0S8( 1 ) )G0  TO  57 
Y-Y+32 

ICOUNT-ICOUNT+1 
IF< IC0UNT.EQ.4ITHEN 

I  STATU S-SYSSQIOC  XVAL  < I ),XVAL< I TCHAN > , XVAL ( XLOC( IOSREADVBLK  )  ), 

1 IOSB , , , 

1 1 NPUT, XVAL ( 8192 ). XVAL (X).XVAL(Y), XVAL (AVACSR), XVAL (AVAACR)) 
NUMB-B192 

CALL  BUFFCNVT( NLMB , B I NPUT , OUT ) 

ISTATUS  -  SYSSQIO(XVAL( I ), XVAL ( CHAN > , 

1 XVAL ( XLOC ( IOSWRITEVBLK ) ) , IOSB, . , 
l BOUT( 1  )  ,XVAL( 8192  ),,,,) 

K  -  SYSSQI 0( XVAL ( 1 ) , XVAL ( CHAN ) , XVAL ( XLOC( IOSWR ITEV3LK ) ) , IOSB , , 

I I  SETUP 3( 1 > ,XVAL( 4  >,,,,) 

Y« ' 206 ' 0 
X-0 
ENDIF 

I F  < I COUNT . EQ . 8 )THEN 

I STATUS-S YSSQI 0( XVAL( 1 ), XVAL ( ITCHAN >, XVAL ( XLOCI  IOSREADVBLK)  ) , 

1 IOSB, , , 

1 1 NPUT , XVAL (8192), XVAL ( X ) , XVAL ( Y ) , XVAL ( AVACSR  > , XVAL ( AVAACR )  ) 
NUMB-8 1 92 

CALL  BUFFCNVT! NUMB , B I NPUT , OUT  > 

ISTATUS  -  SYSSOIOfXVA. - 1 ), XVAL (CHAN), 

1 XVAL ( XLOC < IOSWRITEVBLK)  ) , IOSB  ,  ,  , 

1  BOUT ( 1 ) ,XVAL<  8192),  ,  ,  ,  ) 

K  -  SYSSQIO(SVAL( 1 ),XVAL(CHAN ),XVAL(XLOC( IOSWRITEVBLK)  ). IOSB, , 
1 ISETUP2! I  )  ,XVAL( 4  ),.,,) 

Y- 1 406 ' 0 
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END  I F 

I F  <  I  COUNT. EQ. 16 JTHEN 
V» ' 606 ' 0 
END  If 

IF< 1 COUNT. EQ.24)THEN 

CCCCCCCCCCC  READ  AVA  BACK  NOW  AND  SEE  IF  THE  DATA  IS  THE  SAME  CCCCCC 
C 

ICOUNT-0 
Y-6 
X  *0 

51  ISTATUS«SYSSOIOW<XVAL< 1 ),XVAL( ITCHAN ) , XVAL ( XLOC! IOSREADVBLK )  ) , 

1 IOSB ,  ,  , 

1 1 NPUT, XVAL < 32768 >. XVAL < X ), XVAL !Y>, XVAL (AVACSR ), XVAL! AVAACR)  > 

I F ( AVACSR . EQ .0  >AVACSR- 1 
DO  IADD-1, 32768 
I F ( BINPUT! I ADD  ) . NE . DATA IN  )THEN 
1 1 ADD* IAND( IADD, ‘777'0> 

WRITE! 6 1 12 ) DATA  I N,B INPUT! IADD  ) , 

1 1 AND! IADD  ,'777'0) 

I  ERROR! IIADDJ-IERROR! I IADD  > » 1 

IERRORC” I ERRORC+1 

ENDIF 

12  FORMAT! IX, 'AVA  MEMORY  ERROR.  INPUT-  * ,03 , 2X OUTPUT-  ‘.03. 

1 5X , ' COLUMN-  ‘ , 15 ) 

ENDDO 

C  TYPE  ERROR  COUNT  AFTER  FIELD  *«*•', I ERRORC , ICOUNT 


Y-Y+32 

I COUNT- I COUNT ♦ 1 

IF! IC0UNT.EQ.41THEN 

WRITE! 6 , 56 ) IERRORC , DATA IN 

56  FORMAT!  IX,'  ERROR  COUNT  IN  FIELD  l-MS,'  DATA  IN-  ',03) 

IERRORC-0 
Y«'206'O 
X-8 
ENDIF 

IF! I COUNT. EQ. 8 )THEN 
WRITE(6,157) IERRORC . DATA IN 

157  FORMAT! IX,'  ERROR  COUNT  IN  FIELD  2-’, IS,'  DATA  IN-  ’,03) 
I ERRORC-0 
Y- ' 406 ' 0 
ENDIF 

IF! IC0UNT.EQ.16JTHEN 
Y- ' 686 ' 0 

WRITE  I  6, 58)  IERRORC, DATAIN 

58  FORMAT! IX,'  ERROR  COUNT  IN  FIELD  3-’,  15,'  DATA  IN-  ’,03) 
IERRORC-0 

ENDIF 

IF! ICOUNT. EO. 24 )THEN 
WRITE! 6,59 ) IERRORC, DATAIN 

59  FORMAT! IX,'  ERROR  COUNT  IN  FIELD  4-' ,15,’  DATA  IN-  ’,03) 
IERRORC-0 

DO  IADD-1, 512 

IF! IERRORI IADO ) . NE .0  >WR ITE (6,233)1ADD, 


o  o  n 


CAVAIFAVAMEMT2 


1 I  ERROR* 1ADD ) .DATA IN 

233  FORMAT* IX. 'COLUMN1 , 14. '  ERRORS-  ' , 16 , 1  DATA  IN-  '.03) 

ENDDO 

IERRORC-0 

DO  IADD-1 ,512 

I  ERROR* IADD  >-0 

ENDDO 

ICOUNT-0 

Y-6 

ITESTN-ITESTN+1 

IF* ITESTN.GT.4  > ITESTN-1 

DATA  IN- DATA I NA< ITESTN) 

DO  1-1,32768 

BINPUT* I J-DATAIN 

ENDDO 

GO  TO  177 

END  I F 

GO  TO  51 

END  I F 

GO  TO  1 

57  CONTINUE 

I STATUS-SYSSGETMSG  < XVAL* ISTATUS  ) ,  MSGLEN,  MSGBUF , ,  > 

TYPE  *,'  ISTATUS-' . ISTATUS , ‘  IOSB* 1 >-', IOSB* 1 > 

TYPE  ISTATUS-'  .ISTATUS, '  IOSB* 1 >- ' . IOSB* I  ) 

IF* .NOT. ISTATUS  )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  *,'010  PARAMETER  STATUS :' .MSGBUF 
MSGBUF-'  ’ 

I STATUS-SYSSGETMSG  < XVAL < IOSB* 1  )) ,  MSGLEN,  MSGBUF,,) 

IF*  .NOT. ISTATUS  )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  *.'1/0  STATUS: ' .MSGBUF 
STOP 

II  FORMAT* IX, ' INPUT-' .06.2X, ' IOSB-' , 06 , 2X , 06 , 2X , 06 . 2X . 06  ) 

K  -  SYSSQIOU*  XVAL ( 1 ) , XVAL  *  CHAN ) , XVAL ( XLOC* I OSWR I TE VB L K  >  ) , I OSB , , 
1ISETUP3, XVAL ( 4  ) , , . ,  ) 

END 

SUBROUTINE  BUFFCNVT* NUMB , B I NPUT . OUT > 

BYTE  BINPUT* 1 >,BYTE(2) 

I NTEGER*2  OUT* 5 13 , 1  ) , BYTES , SLU 
EQUIVALENCE* BYTES, BYTE ) 

DATA  SLU/' 34011 '0/ 

1-0 

IOLINE-1 

DO  100  I X- 1 , NUMB 
I-I  +  l 

I F *  I . EQ. 51 2 )THEN 
BYTE* 1  l-BINPUT* IX) 

OUT* I , IOLINE  l-BVTES 

C  UR ITE *6,34)  I , IOLINE , OUT* I , IOLINE  ) 

OUT* 1*1, IOLINE  )«SLU 

C  WRITE (6,34)  I  + 1 , IOL INE .OUT* 1*1 , IOL INE  ) 

1-0 

IOL I NE-IOL INE  +  1 
GO  TO  100 
ENDIF 

BYTE* 1  )-BINPUT( IX) 
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OUT ( I , IOLINE )* I AND( NOT( BVTES  > , ' 377 1 0 ) 
C  WRITE( 6 , 34 )  I , IOLINE .OUT! I , IOLINE > 

34  FORMAT! IX, 13, IX, 13, 2X, 06) 

Iff  CONTINUE 

RETURN 
END 
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EXTERNAL  I0SVRITEV8LK. IOSREADVBLK 
INTEGER*?  BUF ( 200) . I SETUP! 14  > . SLU , I0SS! 4  > 

INTEGER  SYSSASSIGN ,  SYSSQIOW,  CHAN , SYSSQIO, SYSSWAITFR 

INTEGER  SYSSGETMSG .MSGLEN , I  STATUS 
INTEGER*2  OUT( SI3 , 64  )  ,  X  ,  Y 
BYTE  BOUT( 65664), BYTE<2) 

I NTEGER*2  BYTES 
INTEGER*2  OUTPUT . INIT( 4  ) 

INTEGER*2  INPUT* 16384) 

INTEGER  IERROR!  512  ) 

BYTE  BINPUT(32768), BDATA<  2 ) , DATA  I N , DATA  I NA<  4  > 

BYTE  BYTEDAT 
INTEGER*2  IDATA 
INTEGER  AVACSR , AVAACR 
INTEGER*2  ISETUP2! 2  ) . ISETUP3! 2 > 

CHARACTER  *80  MSGBUF, TITLE 
EQUIVALENCE! BUF ( 1  ) , I  SETUP! 1  )) 

EQUIVALENCE !B INPUT, INPUT >.( IDATA.BOATA) 

EQUIVALENCE! BOUT, OUT ) , ! BYTE .BYTES ) 

DATA  I  SETUP / ' 120040' 0, 1 140001 '0, • 121000' 0. ' 107777 '0, ' 17777  0, 

1  '24061 '0. ' 26002 ‘ 0 , '30000'O, '440000, '64777'0, ' 120000'O, 

2  ' 50001 ' 0 , ' 70776 ' 0 , 1 54000 ' 0/ 

DATA  ISETUP2/'64777'0, ' 44000 1 0/ 

DATA  ISETUP3/'64776’0, ' 44000 1 0/ 

I  -  SYSSASSIGN! 'GRA0' .CHAN. , ) 

IF*. NOT.  I  1TYPE  *.'  ERROR  IN  GRINNELL  CHANNEL  ASSIGN* 
ISTATUS-SYSIASSIGN* ' AVA0' , ITCHAN, , ) 

IF!  .NOT. ISTATUS  )TYPE  *,'  ERROR  IN  AVA  CHANNEL  ASSIGN' 

AVACSR-0 
AVAACR-' 435 '0 

1C  •  SYSSQIOW! XVAL!  1  > .XVAL (CHAN  )  ,XVAL(XLOC<  IOSWR ITEVBLK  >  ) .  IOSB.  ,  , 
1 BUF! 1 ) , XVAL  <  28  ) , ,  ,  ,  ) 

ITESTN-1 
I ERRORC-0 

TYPE  *,'  ENTER  MEMORY  DATA  FOR  TESTING' 

READ! 5.78  JBYTEDAT 
78  FORMAT! 03) 

DATA  I NA< 1 l-BYTEDAT 
DATAINA! 2  >»8YTEDAT 
DATAINA! 3  >-BYTEOAT 
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DATAINA( 4 )*BYTEDAT 
C  DATAIN- ' 125 ' 0 

DATA  IN-DATA I NA< ITESTN) 

DO  1-1.32768 

B 1 NPUT! I  }«DATAIN 

ENODO 

177  Y-6 

X-0 

ICOUNT-0 

TITLE* ' FOUR  FIELD  WRITE  TO  AVA* 

C  CALL  TIMRB 

1  ISTATUS-SYSSQIO! XVAL! 1 >,XVAL( ITCHAN ) , XVAL( XLOC! IOSWRITE VBLK )  ) , 

1I0SB, , , 

C  1 1 NPUT , XVAL ( NBYTES ) , XVAL ( X ) . XVAL  <  Y ) , XVAL  C  AVACSR  > , XVAL <  AVAACR  )  > 

1  INPUT  ,  XVAL ( 32768 ) .  XVAL  <  X  > ,  XVAL <  Y  ) ,  XVAL  (  AVACSR  ) .  XVAL  ( AVAACR  )  ) 
IF! AVACSR. EQ.01AVACSR-1 

C  I F <  .NOT. ISTATUS.OR. .NOT. IOSB< 1  )  )GO  TO  57 

C  WRITE  ( 4 , 54 )BINPUT 

54  FORMAT! IX, 16< IX, 03 >  ) 

NUMB-32768 

CALL  BUFFCNVT! NUMB , B INPUT , OUT ) 

TYPE  *, ‘NUMBER  OF  LINES  TO  OUTPUT- ', IOL INE 
ISTATUS  -  SYSSQIO! XVAL < 1 ) , XVAL ( CHAN  ) , 

1XVAL ( XLOC ( IOSWRITE VBLK  )  > , I OSB , , , 

1B0UT< 1  ), XVAL! 65534  ), , , .  > 

ISTATUS  -  SYSSQIO! XVAL ! 1  ) , XVAL ! CHAN  ) , 

1XVAL ( XLOC! IOSWRITEVBLK )  ),!OSB, . , 

1B0UT! 65535), XVAL! 130). , , ,  ) 

IF!. NOT. ISTATUS. OR.. NOT. IOSB! 1 >>G0  TO  57 
Y-Y+32 

I COUNT- I COUNT* 1 
IF! I COUNT . EQ . 4  )THE N 

I  STATUS -SYSSQIO! XVAL  < 1 l.XVAL! ITCHAN ), XVAL ( XLOCI IOSREADVBLK ) ) , 

1 IOSB , , , 

1 1 NPUT, XVAL ( 8192  ), XVAL! X), XVAL! Y), XVAL! AVACSR), XVAL (AVAACR )  ) 
NUMB-8192 

CALL  BUFFCNVT! NUMB , B INPUT , OUT ) 

ISTATUS  -  SYSSQIO! XVAL ! 1 ) , XVAL ( CHAN ) , 

1 XVAL! XLOC! IOSWRITEVBLK)  >, IOSB, , , 

1B0UT! 1  )  .XVAL! 8192  ), , ,  ,  ) 

K  -  SYSSQIO! XVAL ( 1 ) , XVAL! CHAN  > .XVAL ! XLOC! IOSWRITEVBLK ) ) , IOSB , , , 
1 ISETUP3! 1  ) , XVAL ( 4  ) , ,  ,  ,  ) 

Y- ' 206 ‘ 0 
X-0 
ENOIF 

IF! ICQUNT . EQ . 8  )THEN 

ISTATUS-SYSSQIO! XVAL! 1 ),XVAL( I TCHAN ) , XVAL ( XLOC! IOSREADVBLK) ) , 

1 IOSB , ,  , 

1  INPUT, XVAL ( 8 192 ), XVAL! X), XVAL! Y), XVAL (AVACSR), XVAL (AVAACR)  ) 
NUMB-8192 

CALL  BUFFCNVT! NUMB, BINPUT. OUT) 

ISTATUS  -  SYSSQIO! XVAL! 1  ) , XVAL ( CHAN  ) , 

1XVAL ( XLOC! IOSWRITEVBLK) ), IOSB, . , 
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1B0UT ( 1  ),XVAL! 8192), .  , , > 

K  -  SYS SO 10!  XVAL ( 1 > , XVAL ( CHAN ) , XVAL ( XLOC! IOSWRITE VBLK ) ) , IOSB ,  ,  , 
1 ISETUP2! 1 ) , XVAL !  4  ) , , , .  ) 

Y-'406'O 

ENDIF 

IF ! I COUNT. EQ. 1 6  )THEN 

Y» ' 606 ' 0 

ENDIF 

I F ( ICOUNT.EQ.Z*  1THEN 

CCCCCCCCCC  READ  AVA  BACK  NOW  AND  SEE  IF  THE  DATA  IS  THE  SAME  CCCCCC 

ICOUNT-0 

Y-6 

X-0 

1  I STATUS-SYSSQIOW!  XVAL ( 1 >,XVAL< ITCHAN ) , XVAL < XLOC( IOSREADVBLK  )  ) , 

1 IOSB. ,  . 

1 1 NP UT , XVAL (  32768  > . XVAL ( X  > . XVAL ( Y ) . XVAL ( AVACSR ) , XVAL ( AVAACR  )  ) 

I F  <  AVACSR . EQ . 0 )AVACSR- 1 
DO  I ADD* 1 ,32768 

I F <  BI NPUT( IADD ) . NE . DATA IN  JTHEN 
IIADD-IAND! IADD, '777'0> 

WRITE (6,12) DATA IN,BINPUT( IADD). 

1 IAND< IADD  , ' 777 ' 0 ) 

I  ERROR! I IADD  )«IERROR( IIADD)*1 

IERRORC-IERRORC+1 

ENDIF 

12  FORMAT! IX, 'AVA  MEMORY  ERROR.  INPUT-  *, 03 . 2X OUTPUT-  ',03, 

15X,  'COLUMN-  ' , 15  ) 

ENDDO 

C  TYPE  ERROR  COUNT  AFTER  FIELD  ***■ ' , IERRORC , ICOUNT 


Y-Y+32 

ICOUNT-ICOUNT+I 

IF! ICOUNT. EQ.4)THEN 

WR I TE ! 6 , 56 ) IERRORC , DATA I N 

56  FORMAT! IX.'  ERROR  COUNT  IN  FIELD  1-',I5,'  DATA  IN-  ',03> 

IERRORC-0 
Y« 1 206 ' 0 
X-0 
ENDIF 

IF! ICOUNT. EQ.81THEN 
WRITE!6, 157)  IERRORC , DATA IN 

157  FORMAT! IX.'  ERROR  COUNT  IN  FIELD  2-‘.I5.'  DATA  IN-  ’,03) 
IERRORC-0 
Y« ' 406 ' 0 
ENDIF 

IF! ICOUNT. EQ. 16  )THEN 
Y  » ' 606 ' 0 

WRITE  I  6, 58)  IERRORC, DATA  IN 

58  FORMAT! IX,'  ERROR  COUNT  IN  FIELD  3-', 15,'  DATA  IN-  ’,03) 

IERRORC-0 
ENDIF 

IF! ICOUNT. EQ. 24  )THEN 
WRITE! 6,59 ) IERRORC, DATAIN 
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59  FORMAT! IX,'  ERROR  COUNT  IN  FIELD  4-', 15.'  DATA  IN-  ‘,03) 

IERRORC-0 
DO  IADD-1 ,512 

IF ( I  ERROR! IAOD  ) . NE .0 )VR ITE< 6 , 233 ) I ADD , 

1IERR0R! IADD ) , DATAIN 

233  FORMAT! IX, 'COLUMN1 , U. 1  ERRORS-  •.I6.1  DATA  IN-  1 , 03  ) 

ENDDO 

IERRORC-0 

DO  IADO-1 ,512 

IERROR! IAOD  )-0 

ENDDO 

ICOUNT-0 

Y-6 

ITESTN-ITESTN+1 
I F ( ITESTN . GT. 4  )  ITESTN-1 
DATA IN-DATA I NA< ITESTN) 

DO  1-1,32768 

BINPUT! I (-DATAIN 

ENDDO 

GO  TO  177 

ENDIF 

GO  TO  51 

ENDIF 

GO  TO  1 

57  CONTINUE 

I STATUS-SYSSGETMSG  ( XVAL< I  STATUS  ) ,  MSGLEN,  MSGBUF ,  ,  ) 

TYPE  *.'  I  STATUS-' ,  I  STATUS.  1  IOSB<  1  ,  IOSB(  1  ) 

TYPE  *,'  ISTATUS- '  , ISTATUS , '  IOSBt 1  )■ * , IOSB! 1  ) 

I F { .NOT. ISTATUS)  TYPE  *. 'ERROR  IN  CALL  TO  SGETMSG ‘ 

TYPE  *,,QIO  PARAMETER  STATUS: ' .MSGBUF 
MSGBUF-'  ' 

I STATUS-SYSSGETMSG  ! XVAL ! IOSB! 1 >> ,  MSGLEN,  MSGBUF,,) 

IF  <  .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *.'1/0  STATUS: ' .MSGBUF 
STOP 

CU  FORMAT! IX, ' INPUT-' ,06,2X, ' IOSB-' , 06 , 2X ,06 , 2X . 06 , 2X , 06 ) 

C  K  -  SVSSQIOW! XVAL ( 1 ) , XVAL ( CHAN ) , XVAL ! XLOC! IOSWRITE VBLX  >  > , IOSB , , 

C  1 1  SETUP 3 ,XVAL ! 4  ) , , , ,  ) 

END 

SUBROUTINE  BUFFCNVT! NUMB. BINPUT, OUT) 

BYTE  BINPUT! 1  )  .BYTE! 2  ) 

I NTEGER*2  OUT! 51 3 , 1 ) , BYTES , SLU 
EQUIVALENCE! BYTES, 8 YTE  ) 

DATA  SLU/ ' 3401 1 '0/ 

1-0 

IOLINE-1 

DO  100  I X- 1 , NUMB 
I-I  +  l 

IF! I . EQ. 512  )THEN 
BYTE! 1 )«BINPUT! IX) 

OUT! I , IOLINE (-BYTES 

C  WR ITE ! 6 , 34  )  I  ,  IOL  INE .OUT! I , IOL INE > 

OUT! 1  +  1 , IOLINE  )«SLU 

C  WRITE <  6 , 34  )  I ♦ 1 , IOL INE .OUT! I  +  l , IOL I NE  ) 

1-0 
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IOLINE-IOLINE+1 
GO  TO  10* 

END  IF 

BYTE! 1 >»8INPUT< IX) 

OUT { I , IOLINE  )-IAND<NOT< BYTES), '377 '0> 
WRITE ( 6, 34)  I , IOLINE ,OUT( I , IOLINE  ) 
FORMAT ( IX, 13. IX, 13, 2X, 06) 

CONTINUE 

RETURN 

END 


C 

34 

100 
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EXTERNAL  IOSWRITEVBLK, IOSREADVBLK 
I NTEGER*2  8UF! 200) . ISETUP! 1 4 > , SLU , IOSB( 4  ) 

INTEGER  SYSSASSIGN.  SYSSQIOW,  CHAN , SYSSQIO , SYSSWAITFR 
INTEGER  SYSSGETMSG , MSGLEN , I  STATUS 
INTEG£R*2  OUT! 5 1 3 . 64  ) , X . Y 
BYTE  BOUT! 65664), BYTE! 2) 

I NTEGER-2  BYTES 
I NTEGER-2  OUTPUT. INIT! 4  ) 

INTEGER*2  INPUT! 16384) 

INTEGER  I  ERROR! 512) 

BYTE  BINPUT!32768),BDATA!2). DATA  IN , DATAI NA! 4  > 

BYTE  BYTEDAT 
INTEGER-2  IDATA 
INTEGER  AVACSR , AVAACR 
INTEGER-2  ISETUP2! Z  ) , ISETUP3! 2  ) 

CHARACTER  *80  MSGBUF .TITLE 
EQUIVALENCE! BUF I  1 ) , I  SETUP ! 1  )  > 

EQUIVALENCE! B INPUT, INPUT) .! IDATA , BDATA ) 

EQUIVALENCE! BOUT. OUT) .! BYTE .BYTES  ) 

DATA  ISETUP/' 120040' 0, ' 140001 '0, • 121000*0, *  107777 '0. 1 17777 ’0. 

1  '24061 '0, ' 26002 ' 0 , '30000'O, '44000'O, ‘64777'0, ' 120000'O, 

2  '50001 '0, ' 70776 '0, '54000 '0/ 

DATA  ISETUP2/ ' 64 777 ' 0 , '44000'O/ 

DATA  ISETUP3/'64776'0, 1 44000 ' 0/ 

I  -  SYSSASSIGN!  'GRA0' .CHAN, ,  ) 

IF!. NOT.  DTYPE  *.'  ERROR  IN  GRINNELL  CHANNEL  ASSIGN' 
ISTATUS-SYSSASSIGN! 'AVA0' , ITCHAN. . ) 

IF!  . NOT . ISTATUS  JTYPE  *,'  ERROR  IN  AVA  CHANNEL  ASSIGN' 

AVACSR-0 
AVAACR” ' 435 ' 0 

K  -  SYSSQIOW! XVAL! 1 ) ,XVAL! CHAN ) .XVAL! XLOC! IOSWRITEVBLK )), IOSB , , , 
1 BUF ( 1 ) , XVAL ! 28  ) .  ,  ,  ,  ) 

ITESTN-1 
I E  RRORC-0 

TYPE  *,'  ENTER  MEMORY  OATA  FOR  TESTING* 

READ! 5.78)BYTEDAT 
78  FORMAT! 03) 

DATA  I NA! 1 )«BYTEDAT 
DATAINA! 2 )»BYTEDAT 
DATAINA! 3 )«BYTEDAT 
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DATA1NA<  4 ' -BYTEDAT 
C  OATAI N- 1 125  ’0 

DATA  I N-DATA I NA( ITESTN) 

DO  1-1,32768 

B I NP  UT< 1 >- DATA  IN 

ENDDO 

177  V-6 

X-0 

ICOUNT-0 

TITLE-'FOOR  FIELD  WRITE  TO  AVA' 

C  CALL  TIMRB 

1  ISTATUS«SYS$QIO(XVAL< 1 >,XVAL( ITCHAN ) , XVAL ( XLOC! IOSWRITEVBLK) > , 

1I0SB.  ,  , 

C  1 1 NPUT  ,  XVAL  (  NBVTES ) , XVAL ( X  ) , XVAL! Y ) , XVAL ( A VAC SR ) , XVAL ( AVAACR  )  ) 

1  INPUT, XVAL!  32768>,XVAL!X ) ,XVAL<  Y >,XVAL( AVACSR ), XVAL ( AVAACR  >  ) 
IF(AVACSR.EQ.0  )  A VAC SR* 1 

C  IF! .NOT. ISTATUS. OR. .NOT. IOSB! 1 > >G0  TO  57 

C  WRITE  ( * , 54 )B I NPUT 

54  FORMAT! IX, 16( IX, 03 >) 

NUMB-32768 

CALL  8UFFCNVT! NUMB , 8  INPUT .OUT  > 

TYPE  *, ‘NUMBER  OF  LINES  TO  OUTPUT- ' , IOLINE 
ISTATUS  »  SYSSQIO! XVAL < 1  >,XVAL!CHAN>, 

1 XVAL  <  XLOC( IOSWRITEVBLK)  ) . IOSB, , . 

1  BOUT ( 1 ) ,XVAL(65534  ),,,,) 

ISTATUS  -  S YSSQ 1 0( XVAL < 1 ) , XVAL ( CHAN  ) , 

1 XVAL ( XLOC ( IOSWRITEVBLK) ) , IOSB, , . 

1  BOUT ( 65535 ) ,XVAL< 130) . , , ,  ) 

IF(  .NOT. ISTATUS.OR. -NOT. IOSB! 1  )  )G0  TO  57 
Y-V+32 

ICOUNT-ICOUNT+l 
I F ( I COUNT . EQ . 4  >THEN 

I STATUS-S YSSQIO! XVAL ( 1 ),XVAL( ITCHAN ), XVAL( XLOC( IOSREADVBLK ) ) , 
1I0SB, , , 

1  INPUT, XVAL ( 8192 ), XVAL (X), XVAL (Y), XVAL ( AVACSR  ),XVAL( AVAACR)) 
NUMB-8 1 92 

CALL  BUFF CNVT ( NUMB , B I NPUT , OUT  ) 

ISTATUS  -  SYS$QIO(XVAL( 1  ), XVAL < CHAN ) , 

1 XVAL ( XLOC< IOSWRITEVBLK ) J , IOSB, , , 

1  BOUT ( 1 ) ,XVAL(8I92) , , , ,  ) 

K  -  SYSSQIO! XVAL! 1 ) .XVALICHAN > ,XVAL(XLOCt IOSWRITEVBLK) ), IOSB, , . 
1 ISETUP3! 1 ) , XVAL ! 4  ) , , , ,  ) 

Y- ' 206 ' 0 
X-0 
END  I F 

IF! IC0UNT.EQ.8  )THEN 

I STATUS-SYSSQIO! XVAL ! 1 ) ,XVAL( ITCHAN ), XVAL ( XLOC ( IOSREADVBLK)  > , 

1 IOSB , , , 

1 1 NPUT , XVAL (8192), XVAL ( X  > , XVAL ( Y ) , XVAL ( AVACSR  ) , XVAL ( AVAACR )  ) 
NUMB-8 1 92 

CALL  BUFFCNVT! NUMB , B INPUT , OUT ) 

ISTATUS  -  SYSSQIO! XVAL! I ), XVAL ( CHAN ) , 

1XVAL ( XLOC! IOSWRITEVBLK) ), IOSB, , , 
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1  BOUT ( 1  >. XVAL! 8192) , , , ,  ) 

K  -  SVSSQIO!  XVAL ( 1 ) , XVAL ( CHAN ) , XVAL <  XLOC! I0SWR ITEVBLK ) ) , IOSB ■ , , 
11SETUP2( 1  ) , XVAL< 4  ) , , ,  ,  ) 

Y-‘406'O 
END  1  F 

I F ( ICOUNT.EQ. 16  JTHEN 
V '606 'O 
ENOIF 

IF< ICOUNT.EQ. 24  )THEN 
CCCCCCCCCCC  READ  AVA  BACK  NOW  AND  SEE  IF  THE  DATA  IS  THE  SAME  CCCCCC 
C 

ICOUNT-0 

Y-6 

X-0 

51  I STATUS-SYSSQIOW!  XVAL ( 1 ),XVAL< ITCHAN ) , XVAL < XLOC ( 10SREADVBLK ) ) , 

1 IOSB, . , 

1  INPUT, XVAL <  32768  ) , XVAL ( X ) , XVAL ( Y ) , XVAL ( A VAC SR ) ,XVAL ( AVAACR ) > 

I F ( AVACSR . EQ .0  JAVACSR- 1 
DO  IADO-1, 32768 

IFiBlNPUT!  IADD).NE.DATAIN  )THEN 
I  I  ADD” I AND ( 1 ADD , '777'0> 

WRITE <  6 , 1 2 1DATAIN , BINPUT< IAOD  ) . 

1 IAND( IADD  , ' 777 ' 0 ) 

I  ERROR! I IADD)* I  ERROR! IIADDJ  +  l 

IERRORC-IERRORC+1 

ENDIF 

12  FORMAT! IX, 'AVA  MEMORY  ERROR.  INPUT-  ', 03 , 2X OUTPUT-  ',03, 

1SX. 'COLUMN-  ',15) 

ENDDO 

C  TYPE  «,'  ERROR  COUNT  AFTER  FIELD  IERRORC , ICOUNT 


Y-Y+32 

ICOUNT - ICOUNT ♦ 1 

IF! ICOUNT. EQ.41THEN 

WRITE! 6, 56) IERRORC, DA TAIN 

56  FORMAT! IX,'  ERROR  COUNT  IN  FIELD  1-',IS,'  DATA  IN-  ’.03) 

I E  RRORC-0 
Y- ' 206 ' 0 
X-0 
ENDIF 

IF! ICOUNT. EQ.8)THEN 

WR I TE! 6, 157 ) IERRORC. DATA  IN 

157  FORMAT! IX,'  ERROR  COUNT  IN  FIELD  2«',I5,'  DATA  IN-  ',03> 
IERRORC-0 
Y- ' 406 ' 0 
ENDIF 

IF! ICOUNT.EQ. 16  )THEN 
Y- ' 606 ' 0 

WRITE! 6,50 ! IERRORC, OATAIN 

58  FORMAT! IX,'  ERROR  COUNT  IN  FIELD  3-', 15,'  DATA  IN-  ',03) 

IERRORC-0 
ENDIF 

IF! ICOUNT. EQ.24)THEN 
WRITE! 6,59 ) IERRORC, OATAIN 
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59  FORMAT (IX,'  ERROR  COUNT  IN  FIELD  4«',I5,'  DATA  IN-  ’,03> 

IERRORC-0 
DO  IADD-1,512 

I F ( 1ERROR!  I ADD ) . NE .0 (WRITE  <6,233>IADD, 

1 1  ERROR! IADD ) .DATAIN 

233  FORMAT < 1 X , 1  COLUMN ‘,14,'  ERRORS-  ',16,'  DATA  IN-  ‘,03> 

ENDDO 

IERRORC-0 

DO  IADD-1,512 

IERROR! IADD  >»0 

ENODO 

ICOUNT-0 

Y-6 

ITESTN-ITESTN+1 
I F ( ITESTN.GT.4JITESTN-1 
DATA  I N-DATAI NA( ITESTN  ) 

DO  1=1,32768 

BINPUT! I J-DATAIN 

ENDDO 

GO  TO  177 

ENDIF 

GO  TO  51 

ENDIF 

GO  TO  1 

57  CONTINUE 

I  STATUS »S VS SGETMSG  ! XVAL < I  STATUS  ) ,  MSGLEN,  MSGBUF , .  ) 

TYPE  I  STATUS- ' , ISTATUS ,  '  IOSB! 1 )-', IOSB < 1  ) 

TYPE  *,'  ISTATUS-'  , ISTATUS, '  IOSB( 1  '  , IOSB! 1  ) 

I F {  .NOT. ISTATUS  )  TYPE  *,  'ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  * , ' QIO  PARAMETER  STATUS MSGBUF 
MSGBUF-'  ' 

I  STATUS -SYS SGETMSG  < XVAL (IOSB ( 1  )> .  MSGLEN,  MSGBUF,,) 

IF ( .NOT. ISTATUS)  TYPE  ‘.'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'I/0  STATUS: ' .MSGBUF 
STOP 

11  FORMAT ( IX, ' INPUT-' ,06,2X, ' IOSB-' , 06 , 2X , 06 , 2X , 06 , 2X . 06 ) 

K  -  SYSSQIOW! XVAL ( 1 > , XVAL ! CHAN  > , XVAL ( XLOC ( I OSWR ITE VBL K ) ) , I OSB , 
1 ISETUP3,XVAL( 4  ),,,,) 

END 

SUBROUTINE  BUF FCNVT <  NUMB , B INPUT , OUT  ) 

BYTE  BINPUT( 1 ),BYTE(2> 

I NTEGER*2  OUT< 513 , 1  ), BYTES , SLU 
EOUIVALENCE(BYTES.BYTE ) 

DATA  SLU/ ' 3401 1 '0/ 

1=0 

I0LINE-1 

DO  100  I X- 1 , NUMB 
1-1*1 

I F < I . EO. 512  )THEN 
BYTE < 1  )-BINPUT< IX  > 

OUT < I , IOLINE  l-BYTES 

C  WRITE! 6,34)  I , IOL INE ,OUT( I , IOL INE  ) 

OUT!  1  +  1 , IOLINE  ) -SLU 

C  WR I TE ( 6 , 34 )  I ♦ 1  ,  IOL I NE , OUT! I ♦ 1 , 1 OL I NE  ) 

1-0 
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IOLINE“IOL INE  +  1 
GO  TO  100 
ENDIF 

BYTE ( 1 >«B1NPUT( IX) 

OUT < I . IOL INE  >-IAND<  NOT! BYTES  > , • 377 ' 0 ) 
WRITE (6. 34)  I , IOL INE ,OUT( I, IOL INE) 
FORMAT! IX, 13. IX, 13. 2X. 06) 

100  CONTINUE 
RETURN 
END 


li 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

THIS  PROGRAM  TESTS  ALL  OF  THE  AVA  MEMORY  (NOT  OUST  WHERE  VIDEO  IS  STORED) 
UP  TO  V* ' 777 ' 0  AND  X-'1777'0 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

EXTERNAL  IOSWR ITE V8L K , IOSREAOVBLK 
INTEGER*2  BUF(200) , ISETUP< 14 ) , SLU . IOSB< 4 ) 

INTEGER  SYSSASSIGN,  SYSSOIOW,  CHAN , SYSSQIO , SYSSWAITFR 
INTEGER  SYSSGETMSG . MSGLEN , ISTATUS 
INTEGERS  OUT ( 5 1 3 . 64  > , X , Y 
BYTE  BOUT<65664  ),BYTE<2> 

INTEGER*2  BYTES 
INTEGER*2  OUTPUT, INIT< 4  ) 

INTEGER*2  INPUT< 16384! 

INTEGER  IERROR{ 512  ) 

BYTE  B I NPUT( 32768 ) , BDATA( 2  > , DATAI N , DATAINAf  4  ) 

INTEGER*2  IDATA 
INTEGER  AVACSR , AVAACR 
INTEGER*2  ISETUP2< 2  ) , ISETUP3< 2  ) 

CHARACTER  *80  MSGBUF, TITLE 
EQU I VALENCE (BUF( 1 ) , I  SETUP! 1)  > 

EQUIVALENCE! BINPUT .INPUT), ( IDATA , BDATA ) 

EQUIVALENCE ( BOUT , OUT  ) , ( BYTE , BYTES  ) 

DATA  I  SETUP / ' 1 20040' 0, '140001 ‘0,  ' 1 2 1000’ 0.  1 107777 '0,  ' 17777 '0. 

1  '24061 '0, 1 2  6002 ’ 0 , ’ 30000 1 0 , ’44000'O, '64777'0. ' 120000'O, 

2  '50001 '0, '70776 '0, '54000' 0/ 

DATA  ISETUP2/‘64777'0, ' 44000' 0/ 

DATA  I SETUP3/ ' 64776 ' 0 , '44000'O/ 

I  «  SYSSASSIGN!  'GRA0' .CHAN, ,  ) 

IF!. NOT.  I1TYPE  *,'  ERROR  IN  GRINNELL  CHANNEL  ASSIGN' 

ISTATUS-SYSSASSIGN!  'AVA 0' , ITCHAN, .  ) 

IF ! . NOT. I  STATUS  )TYPE  *,'  ERROR  IN  AVA  CHANNEL  ASSIGN' 

AVACT  -0 
AVAACR-' 435 '0 

<  »  SYSSQIOW! XVAL ( 1 ) , XVAL ( CHAN ) , XVAL ( XLOC ( IOSWRITEVBLK >  > . IOSB , , , 

1 BUF ( 1  ), XVAL (28), , , ,  ) 

ITESTN-1 

IERRORC-0 

DATAI NA( 1  )-' 125'0 
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OATAINA(2)«0 

OATAI NA<  3 )- ' 252 ' 0 

OATAI NA<  4  )« ' 377 ’ 0 

DATA  I N- ’ 1 25 ’ 0 

DATA IN “DATA I NA( ITESTN) 

DO  1-1,32768 
BINPUTf I (-DATAIN 
ENDDO 

177  Y-0 

X-0 

ICOUNT-0 

TITLE- 1  FOUR  FIELD  WRITE  TO  AVA‘ 

C  CALL  TIMRB 

1  ISTATUS-SYSSQIO! XVALf 1 ) .XVAL! ITCH AN ) , XVAL (XLOCf IOSWRITEVBLK) > , 

1 IOSB  ,  ,  , 

C  1  INPUT, XVAL ( NBVTES) ,XVAL<  X  >,XVAL< V ) , XVAL ( AVACSR  ), XVAL ( AVAACR  )  ) 

1 1 NP UT , XVAL ( 32768  > , XVAL ( X ) , XVAL  (  Y  ) , XVAL  C  AVACSR  ) . XVAL  <  AVAACR )  ) 

I F  <  AVACSR . EQ .0 (AVACSR- 1 

C  I F <  .NOT. ISTATUS.OR. .NOT. IOSB! 1 >  )GO  TO  57 

C  WRITE  <  4 , 54  )B INPUT 

54  FORMAT (1X,16(1X,03)) 

C  NUMB- 32768 

C  CALL  BUFFCNVT ( NUMB , B I NPUT , OUT ) 

C  TYPE  *, 'NUMBER  OF  LINES  TO  OUTPUT- IOL INE 

C  ISTATUS  *  S YSSOIOf XVAL ( 1 >, XVAL (CHAN), 

C  1 XVAL  (XLOCf IOSWRITEVBLK  )  ) , IOSB. , , 

C  1  BOUT (  1  ) , XVAL (65534), ,,  ,  ) 

C  ISTATUS  »  SYSSQIO! XVAL ( 1 ),XVAL( CHAN), 

C  1XVAL( XLOCf IOSWRITEVBLK) ). IOSB, . , 

C  1B0UT(65535), XVAL (130),,,,) 

C  I F ( .NOT. ISTATUS.OR. -NOT. IOSB< 1 ) >GO  TO  57 

Y-Y+32 

I F  < Y.GT. ' 777 ' 0  1THEN 

CCCCCCCCCCC  READ  AVA  BACK  NOW  AND  SEE  IF  THE  DATA  IS  THE  SAME  CCCCCC 
C 

ICOUNT-0 

Y-0 

51  ISTATUS-SYSSQIOW! XVAL< I ) ,XVAL( ITCHAN ) ,XVAL( XLOC( IOSREADVBLK ) ) , 

1 IOSB. , . 

1 1 NPUT , XVAL ( 32768 ) , XVAL ( X ) , XVAL ( Y ) , XVAL ( AVACSR  ) , XVAL ( AVAACR  )  ) 

I F  < AVACSR. EQ.0JAVACSR-1 
DO  IADO-1, 32768 

IF<BINPUT( IADD ) . NE . DATA IN )THEN 
I  I ADD- IAND( IADD, ' 777 'O) 

C  WR ITE ( 6 , 12 1DATAIN , 8  INPUT! IADD), 

C  1 IAND( IADD  , ‘ 777 ' 0 ) 

IERRORf I IADD >- 1  ERROR! I IADD )  +  l 

IERRORC-IERRORC+1 

ENDIF 

12  FORMAT! IX ,' AVA  MEMORY  ERROR.  INPUT-  *, 03 , 2X , 1  OUTPUT-  ',03, 

15X, 'COLUMN-  ',15) 

ENDOO 
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C  TYPE  *.'  ERROR  COUNT  AFTER  FIELD  IERRORC , ICOUNT 


V-Y+32 

IF  <  Y . GT . 1 777 1 0 (THEN 
WRITE! 6, 59) IERRORC, DATAIN 

59  FORMAT! IX,'  ERROR  COUNT  -’.IS,'  DATA  IN*  ’.03) 

IERRORC-0 
DO  IADD-1,512 

IF!  I  ERROR!  IADD  ) .  NE  .0 1WRITE!  6 , 233  )  IADD  , 

1 IERROR! IADD ) .DATAIN 

233  FORMAT! IX, 'COLUMN' ,14, '  ERRORS-  ',16,'  DATA  IN-  ',03> 

ENDDO 

IERRORC-0 

DO  I ADD- 1 ,512 

IERROR! IADD  >-0 

ENDDO 

ICOUNT -0 

Y-0 

ITESTN-ITESTN+1 

IF! ITESTN.GT.4  ) ITESTN-1 

DATA  IN-DATA  I NA! ITESTN) 

DO  1-1,32768 

BINPUT! I ) -DATA  I N 

ENDDO 

GO  TO  177 

END  I F 

GO  TO  51 

ENDIF 

GO  TO  1 

57  CONTINUE 

I STATUS-SYS SGETMSG  (  XVAL ' I STATUS > ,  MSGLEN,  MSGBUF , , > 

TYPE  *,'  ISTATUS-' .ISTATUS, '  IOSBC 1 >- ' , IOSBC 1 > 

TYPE  *.'  ISTATUS-' , ISTATUS, '  IOSBC I  )- * , IQSB! I  > 

IF! .NOT. ISTATUS)  TYPE  -.'ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  -,'QIO  PARAMETER  STATUS :', MSGBUF 
MSGBUF-'  * 

I  STATUS -SYS SGETMSG  ( XVAL ( IOSBC 1  )) ,  MSGLEN,  MSGBUF,,) 

IF!  .NOT.  ISTATUS  ).  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'I/0  STATUS! ' .MSGBUF 
STOP 

11  FORMAT! IX, ' INPUT- ' ,06,2X, ' IOSB- ' , 06 , 2X , 06 , 2X , 06 , 2X , 06 > 

K  -  SYSSQIOU!  XVALC 1 ) , XVAL < CHAN >, XVAL ( XLOC < 1 OSWR I TE VBLK > >, IOSB, , 
1ISETUP3, XVAL ! 4  ) , ,  ,  ,  ) 

END 

SUBROUTINE  BUFFCNVT! NUMB , B I NPUT . OUT ) 

BYTE  BINPUT! 1  ),BYTE(2> 

INTEGER-2  OUT! 513 , 1  )  .BYTES , SLU 
EQUIVALENCE! BYTES, BYTE  > 

OATA  SLU/ ' 3401 1 '0/ 

1-0 

IOLINE-1 

DO  100  I X- 1 , NUMB 
1-1*1 

IF! I . EQ . 51 2  )TH£N 
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BYTE ( 1 >-8INPUT! IX) 

OUT (  I  ,  IOUNE  (-BYTES 

WRITE <  6.34)  I  .  IOIINE  .OUT!  I ,  IOUNE  ) 

OUT (  1*1.  IOUNE  )-SLU 

WRITE!  6.34  )  1*1 .  IOUNE  , OUT!  1*1 .  IOUNE  ) 

1-0 

IOL INE- IOL I NE ♦ 1 
GO  TO  100 
ENDIF 

BYTE! 1 )-BINPUT! IX) 

OUT! I , IOL INE )«IAND! NOT! BYTES). '377 'O) 
WRITE! 6, 34)  I . IOL INE .OUT! I, IOL INE  ) 
FORMAT! IX, 13, IX. 13. 2X, 06) 

CONTINUE 

RETURN 

END 
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EXTERNAL  IOSREADVBLK , IOSVRITEVBLK 
BYTE  I X  C 100) , I Y ( 1OT ) , N , IF  LAS 
INTEGER*?  D( 100>,X,Y,IOSB<4> 

INTEGER*2  OUT ( 1 6 > . US , TS , UM, TM. UH21 
DIMENSION  VOLTS ( 16  ) 

BYTE  BD! 200 (.TEMP, l IMAGES! 4) 

INTEGER*2  UH84 . UH . TH . UD , TD , HD 
CHARACTER*80  MSGBUF 
INTEGER«2  TEMS . MS , HMS . TMS 
INTEGER  AVAACR 

INTEGER  AVACSR , SYSSASSIGN , SYS SGETMSG , SYSSQ I OW, SYSSQIO 
EQUIVALENCE! 0, BO  ) 

ISTATUS-SYSSASSIGN! ' AVA0' ,IAVAC, . > 

I F <  .NOT. ISTATUS  )THEN 
TYPE  *,'  AVA  CHANNEL  ASSIGN  ERROR1 
STOP 
ENDIF 
IFLAG-l 
AVAACR" ' 4 1 5  1 0 
AVACSR-0 
3  Y-l 

X-0 

I STATUS-SYSSCirOV!  XVAL (It, XVAL ( IAVAC > , XVAL IXLOCt IOSREADVBLK ) ) , 
1IOSB,  ,  . 

1 D . XVAL <  36  ) . XVAL ( X ) , XVAL <  Y ) , XVAL  <  AVACSR ) , XVAL ! AVAACR ) > 

IF  < .NOT. I  STATUS. OR. -NOT. I0SB( 1  )  1THEN 
I  STATUS "SYSSGETMSG  < XVAL < I  STATUS ) .  MSGLEN,  MSGBUF.,) 
IF< -NOT. ISTATUS)  TYPE  «. 'ERROR  IN  CALL  TO  SGETMSG ‘ 
TYPE  *, MSGBUF 
MSGBUF-'  ' 

I STATUS»S YSSGETMSG  ! XVAL! IOSB! 1 > > ,  MSGLEN,  MSGBUF,,) 
IF (  .NOT. ISTATUS >  TYPE  * , 1  ERROR  IN  CALL  TO  SGETMSG' 
TYPE  *, MSGBUF 
STOP 

ENDIF 

IF ( AVACSR. EQ.0)AVACSR-1 
DO  1-3,35,2 
TEMP-BO! I  ) 

BD! I >«BD< 1  +  1  ) 

BD! 1+1 )«TEMP 
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ENDDO 

C  WRITE16, 111 )<D( I ), 1-1,16) 

111  FORMAT! 1X,16(1X.Z4)> 

I F ( 1FLAG  1THEN 
I  FLAG-0 

I  IMAGES! 1  >-27  (ESC 

I I  MAGE  B ( 2 ) *72  IH  CURSOR  HOME 

I  IMAGES! 31-27  IESC 

1 1MAGEB! 4  1-74  10  ERASE  TO  END  OF  SCREEN 

WRITE <  6 , 77 ) 1 1 MAGE B 
I  IMAGES! 1 1-27  IESC 
I IMAGEBi 2  )»89  IV 
I IMAGEBt 4  )-32  ICOLUMN 
1 1 MAGE B! 3  >*37  1LINE 

WRITE!6, 177)1  IMAGES 

177  FORMAT! 1H+.4A1 . '  CHANNEL  OCTAL  HEX'. 

1 ’  VOLTS' ) 

ENDIF 
DO  1-2,17 

ICHAN-IANDl NOT! ISHFT! 0! I ) .-12 > )-l , ' F • X > 

IS- I AND! ISHFT! D< I  ), -11  1.1) 

IF! IS . EQ.0 )THEN 
1 1 *F LOAT ! D! I  )  )  +  l  . 

ELSE 
II-D! I  ) 

ENDIF 

OUT! ICHAN+1 )-IAND! II. 1 7777 ' 0 ) 

VOLTS! ICHAN+1 ) - F  L  OAT  < IAND! II, 1 3777 1 0 ) 1/2047 . 

VOLTS! ICHAN+1 1-VOLTS! ICHAN+1 1*10. 

IF! I S . NE .0 1 VOLTS! ICHAN+1 >— VOLTS! ICHAN+1  1 

IF! VOLTS! ICHAN+1 1.GT.0. 1VOLTS! ICHAN+1 )-ABS(VOLTS! ICHAN+1 1-10. 1 

ENDDO 

DO  1-1,16 

I  IMAGE B! 31-1*39  ILINE 

C  WR ITE(6,77)I IMAGEB , ( OUT  < I  1,1-1,161 

WRITE(6,77)I I MAGE B , I , NOT! OUT! I  1 1, NOT! OUT! I  1  1, VOLTS! I  1 
C77  FORMAT! 1 H+ , 4A1 . 1 6! Z4 , 1X11 

77  FORMAT !1H+,4A1,I5, 10X , 06 , 1  -  * , 24 , 10X , F6 . 2 1 

ENDDO 
GO  TO  3 
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EXTERNAL  10SREADV8LK, IOSWRITEVBLK 
BYTE  I X  <  100 ) , I Y  C 100 ) , N , 1 F  LAG 
INTEGER*2  D( 100 > ,X , V , IOSBC 4 ) 

INTEGER*2  US ,TS , UM ,TM, UH2 1 
BYTE  BD( 200), TEMP 
INTEGER*2  UH84,UH,TH,UD,TD,HD 
CHARACTER* 80  MSGBUF 
I NTEGER*2  TEMS .MS , HMS , TMS 
INTEGER  AVAACR 

INTEGER  AVACSR , SYSSASSIGN , SYSSGETMSG ,SYS$QIOW,SYSSQIO 
EQUIVALENCE! D , BD ) 

ISTATUS-SYSSASSIGNC 'AVA0' , IAVAC, . > 

IFC  . NOT . I  STATUS )THEN 

TYPE  AVA  CHANNEL  ASSIGN  ERROR' 

STOP 

END  I F 

IFLAG-1 

AVAACR-' 415'0 

AVACSR-0 

Y-l 

X-0 

I  STATUS- SYS SO IOWC XVAL  < I  I , XVAL ( IAVAC ) , XVAL ( XLOCt IOSREADVBLK > > , 
1I0SB. , , 

1 D . XVAL  <  36  ) , XVAL  <  X ) , XVAL ( Y ) , XVAL ( AVACSR  > , XVAL ( AVAACR  >  ) 

I F  <  .NOT. I  STATUS . OR . .MOT. IOSB( 1  )  JTHEN 
ISTATUS-SYSSGETMSG  ( XVAL < I  STATUS  ) ,  MSGLEN,  MSGBUF,,) 
IF< .NOT. ISTATUS  )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG ' 
TYPE  *, MSGBUF 
MSGBUF- '  ' 

ISTATUS-SYSSGETMSG  ( XVAL< IOSBC 1 )) ,  MSGLEN,  MSGBUF,,) 
IFC  .NOT. ISTATUS  )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 
TYPE  *, MSGBUF 
STOP 

ENDIF 

IFC AVACSR. EQ.0 (AVACSR- 1 
DO  1-3,35,2 
TEMP-BDC I  ) 

BDC I >-BDC I  +  I  ) 

BD  C I  +  l ) -TEMP 
ENDDO 
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EXTERNAL  IOSREADVBLK, IOSWRITEVBLK 
BYTE  I X< 100 ) , I Y( 100 ) , N , I  FLAG 
INTEGER*2  D(260),X,Y,IOSB(4) 

I NTEGER*2  OUT ( 1 6 > . US . TS , UM , TM , UH2 1 
DIMENSION  VOLTS( 16) 

BYTE  8D( 520) .TEMP , I IMAGEBI 4 ) 

I NTEG£R*2  UH84.UH.TH.UD.TD.HD 
CHARACTER*80  MSGBUF 
INTEGER*2  TEMS , MS , HMS , TMS 
INTEGER  AVAACR 

INTEGER  AVACSR , SYSSASSIGN.SYSSGETMSG.SYSSQIOW.SYSSQIO 
EQUIVALENCE ( D, BD ) 

I  STATUS "SYSSASS I GN<  1 AVA0 ' , IAVAC, , > 

I F  <  .NOT. ISTATUSITHEN 

TYPE  AVA  CHANNEL  ASSIGN  ERROR’ 

STOP 
ENDIF 
I  FLAG" 1 
AVAACR” ' 4 1 5 ' 0 
AVACSR-0 

TYPE  •.’ENTER  CHANNEL  TO  BE  PLOTTEO.  U...16)’ 

ACCEPT* , IUCHAN 
3  Y»l 

X”0 

ISTATUS”SYSSQIOW(  XVAL( 1 >,XVAL< IAVAC > ,XVAL< XLOCI IOSREADVBLK)  ), 
1IOSB, . , 

ID. XVAL <  520) ,XVAL<  X ) , XVAL( Y > , XVAL ( AVACSR  ). XVAL ( AVAACR  )  ) 

I F  <  .NOT. I  STATUS. OR. .NOT. IOSB< I)  )THEN 
I  STATUS “SYSSGETMSG  ( XVAL ( I  STATUS ) ,  MSGLEN.  MSGBUF , ,  ) 
IF<  .NOT. ISTATUS  )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG ' 
TYPE  • , MSGBUF 
MSGBUF.'  ’ 

I  STATU S”SYSSGETMSG  ( XVAL < IOSBC I  )  ) ,  MSGLEN,  MSGBUF,.) 

I F < .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *, MSGBUF 

STOP 

ENDIF 

IF ( AVACSR . EQ .0 (AVACSR” I 
DO  1-3,519,2 
TEMP«BD( I  ) 
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BD( I  )-B0( I  +  l  ) 

B  D  <  1*1 l-TEMP 
ENDDO 

THE  FIRST  16  BITS  WORD  IS  TRASH. 

IRESET-1 
DO  1-2,256,15 

WRITE (6, 111 >(D< J 1,0-1 ,1+15 > 

DO  10-1,1*15 

I CHAN - 1 AND <  NOT ( I SHFT< D< I J ) , - 1 2 ) >- 1 , ' F ' X  ) 

IS-IANDt I SHFT< D( I J  ) . -1 1  ) , 1  ) 

I F ( I S .  EQ.0  >THEN 
1 1 -FLOAT  <  0< 10  1  1  +  1  . 

ELSE 

1 1  — D  <  10  ) 

END  I F 

OUT  < ICHAN* 1 )• IANDl II, '7777’0> 

VOLTS! I  CHAN* 1  ) -FLOAT! IAND! II . ’ 3777 ' 0 ) 1/2047 . 

VOLTS! ICHAN+1 l-VOLTS! ICHAN+1 >*10. 

IF!  IS.NE .0) VOLTS! ICHAN* 1 >— VOLTS! ICHAN* 1 > 

IF! VOLTS! ICHAN* l ) . GT .0 . > VOLTS! I  CHAN* 1 l-ABS! VOLTS! ICHAN* 1 >-10.  > 
ENDDO 

TYPE  *. 'VOLTS! 16)-‘ .VOLTS! 16) 

CALL  AVT52P ! VOLTS.IWCHAN.IRESET) 

ENDDO 

IRESET-1 

11  FORMAT !1X,16!1X,Z41) 

GO  TO  3 
END 

SUBROUTINE  AVT52P I  VOLTS , IWCHAN . IRE  SET > 

THIS  IS  AUXILIARY  DATA  VT52  PLOT  SUBROUTINE 

IWCHAN  IS  THE  CHANNEL  TO  BE  PLOTTED 
VOLTS  IS  THE  VOLTAG 

BYTE  I IMAGEB! 4  ) 

DIMENSION  VOLTS! 16) 

DATA  IFIRST/1/, IXPOS/32/ 

IF!  I  RESET 1THEN 

IXPOS-32 

IRESET-0 

IFIRST-1 

ENDIF 

IF!  IF IRST  JTHEN 
IF IRST-0 

I IMAGEB! I  1—27  IESC 
I IMAGEB! 21-72  1H  CURSOR  HOME 

I IMAGEB! 31-27  IESC 

I IMAGEB! 4  1-74  10  ERASE  TO  END  OF  SCREEN 

WRITE(6,77)I IMAGEB 
77  FORMAT! 1H*,4AI  1 

IIMAGEB! 1  1-27  IESC 
I IMAGEB! 2 1-89  IV 
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I  IMAGES! 4  >*32  ICOLUMN 
I IMAGEB! 3 >»44  ILINE 
WRITE(6, 177)1 1 MAGE B 

177  FORMAT ( 1H+ , 4A1 , 

1  ' - 

1  ■ - .  j 

IIMAG£B< 1 )«27  1  ESC 

1IMAGEB<2>*89  IV 
HMAGEB<  4  )»32  I  COLUMN 
OO  I >32 , 56 

I IMAGEB! 3 )»I  ILINE 
WRITE ( 6 , 178  )  1  IMAGES 

178  FORMAT! 1H+.4A1, *  +  •  ) 

ENDDO 

ENDIF 

I IMAGEB! 4 )«IXPOS 

Y«24.*(< VOLTS! IWCHAN )  +  10.  >720. > 

I IMAGEB! 3)*32.+24.-Y 
WR I TE (6, 179)1  IMAGE  B 

C  TYPE*, 'X. Y-' . I  IMAGES! 4 ) , I IMAGEB! 3  ) 

179  FORMAT  < 1H+.4A1,  1  *  * > 

IXPOS-IXPOS+1 

IF! IXPOS.GE . 128JTHEN 

IXPOS-32 

IFIRST-1 

ENDIF 

RETURN 

END 
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EXTERNAL  IOSREAOV8LK , IOSWRITEVBLK 
BYTE  I  X(  100  >  ,  I  Y  (  100  I ,  N  ,  I  FLAG 
INTEGER*2  D( 260) . X . Y , IOSB! 4 ) 

I NTEGER*2  OUT( 1 6 > , US , TS , UM , TM . UH2 l 
DIMENSION  VOLTS! 16 ) 

BYTE  B0< 520)  .TEMP , I  IMAGES! 4  ) 

INTEGER*2  UH84 , UH . TH , UD . TD . HO 
CHARACTE  R*80  MSGBUF 
INTEGER*2  TEMS . MS , HMS . TMS 
INTEGER  AVAACR 

INTEGER  A VAC SR .SYSSASSIGN , SYSSGETMSG , S YSSOIOW , S YSSQI 0 
EQUIVALENCE ( D , BD  ) 

I  STATUSES YSIASS I GN<  ' AVA0 1 , IAVAC . .  ) 

I E (  .NOT. ISTATUS  JTHEN 

TYPE  AVA  CHANNEL  ASSIGN  ERROR' 

STOP 
ENDIF 
I F  LAG* 1 

AVAACR-' 415 '0 
AVACSR-0 
3  Y-l 

X-0 

I STATUS-SYSSG IOW! XVAL! 1 >,XVAL< IAVAC ) .XVAL! XL0C( IOSREADVBLK  )  ), 
1 IOSB, . . 

1 D  .  XVAL  ! 520  > , XVAL  (  X ) . XVAL  (  Y ) . XVAL ( AVACSR ) . XVAL ( AVAACR  >  > 

I F  <  .NOT. I  STATUS. OR. .NOT. IOSB!  I  )  JTHEN 
I STATUS-SYSSGETMSG  ! XVAL ! I  STATUS > ,  MSGLEN.  MSGBUF.,) 
IF!  .NOT. ISTATUS  )  TYPE  *. 'ERROR  IN  CALL  TO  SGETMSG 1 
TYPE  *, MSGBUF 
MSGBUF-’  ■ 

I STATUS-SYSSGETMSG  ( XVAL < IOSB! I  )  ) ,  MSGLEN,  MSGBUF,,) 
IF!  .NOT. ISTATUS )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 
TYPE  *, MSGBUF 
STOP 

ENDIF 

I F ( AVACSR . EO . 0  JAVACSR- 1 
DO  1-3.519.2 
TEMP-BD!  I  ) 

BD! I  )-BD< 1*1  ) 

BD! 1*1 )-TEMP 
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ENOOO 

THE  FIRST  16  BITS  WORD  IS  TRASH. 

IRESET-1 
00  1*2,80.15 

WRITE!  6. Ill ) ( D< J  >.J-1. 1*15) 

OO  I  J* I , I ♦  1  5 

ICHAN*  IAND!  NOT!  ISHFT<D! 10  >,-12) >-l, 'F 'X> 

I S“ IAN0( ISHFT(D( 1J  >,-11  ) ,  1) 

I F ( I S . £0.0 (THEN 
I I-FLOAT! D(  IJ  >  >  +  l . 

ELSE 

1 1 *D(  IJ  > 

END  IF 

OUT ( ICHAN* 1 ) * IANO ( II . '7777'0> 

VOLTS! I  CHAN* 1 >-FlOAT< IANO! II , ' 3777 ’ 0 >  >/2047 . 

VOLTS( ICHAN* 1 >-VOLTS< ICHAN+1 >*10. 

I F  (  IS . NE .0 )VOLTS(  ICHAN+1 >*-V0LTS< ICHAN+1 > 

I F  <  VOLTS! ICHAN+1 ) .GT.0.  IVOLTS! ICHAN+1 >*ABS< VOLTS! ICHAN+1 >-10. > 
ENOOO 

TYPE  *,  'VOLTS! 16)*' , VOLTS! 16  > 

CALL  AVTS2P ! VOLTS, IUCHAN, IRESET) 

ENDDO 

IRESET-1 

11  FORMAT  <1X,16(1X,Z4>) 

GO  TO  3 
END 

SUBROUTINE  AVT52P! VOLTS , IUCHAN , IRESET  > 

THIS  IS  AUXILIARY  DATA  VT52  PLOT  SUBROUTINE 

IUCHAN  IS  THE  CHANNEL  TO  BE  PLOTTED 
VOLTS  IS  THE  VOLTAG 

BYTE  I IMAGEB! 4  ) 

DIMENSION  VOLTS ( 16 ) 

DATA  IFIRST/I/, 1XP0S/32/ 

I F ( IRESET  )THEN 

IXPOS-32 

IRESET-0 

IFIRST-1 

ENDIF 

IF  < IF IRST (THEN 
IFIRST-0 

I IMAGEB! 1 >-27  1  ESC 

I IMAGEB! 2  >*72  IH  CURSOR  HOME 

I IMAGEB! 3  >*27  IESC 

I IMAGEB! 4 )*74  10  ERASE  TO  END  OF  SCREEN 

WRITE!6.77)I I MAGE B 
77  FORMAT! 1H+.4A1 > 

I  IMAGES! I >-27  IESC 
I IMAGEB! 2 >-89  IY 
I IMAGEB! 4 >-32  ICOLUMN 
I  IMAGES! 3 )  —  4  4  ILINE 
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CAVA] AUXP LOTA 


WRITE16, 177)1 1 MAGE B 

177  FORMAT ( 1 H+ , 4A 1  , 

1  ■ - 

1  • - ■  > 

I  IMAGES! 1 >-27  IESC 
1  IMAGES! 2 >-89  IV 
I IMAGEB! 4 >-32  1COLUMN 
DO  1-32,56 

I IMAGEBI 3  ) - 1  1 L I NE 

WRITEI6, 178)1 IMAGEB 

178  FORMAT! 1 H* , 4A 1 , ' ♦ '  > 

ENDDO 

END  I F 

DO  JO-t , 16 

I IMAGEB! 4 ) • I XPOS 

V-24 . *! <  VOLTS ( J J ) ♦ 10 .  )/2B.  ) 

I IMAGEB! 3J-32.+24.-V 
WR I T  E ! 6 , 1 7  9  > 1 1  MAG  E  8 

C  TYPE*, 'X.Y-' , I  IMAGE B! 4 >. I IMAGEBI 3) 

179  FORMAT! 1H+.4A1, > 

IXPOS-IXPOS+1 

IF! IXPOS.GE . 1281THEN 

IXPOS-32 

IF  IRST-1 

END  I F 

ENDDO 

RETURN 

END 


APPENDIX  Z 


CAVAJAUXIRIG 


EXTERNAL  IOSREADVBLK, IOSWRITEVBLK 
BYTE  IX< 100) , I V < 100) ,N, IFLAG 
I NTEGER*2  D< 100). X.Y 
INTEGER*2  US , TS , UM , TM , UH2 1 
I NTEGER*2  UH 84 . UH , TH . UD , TD . HO 
BYTE  I IMAGEBt  4 ) 

INTEGER»2  TEMS . MS , NMS , TMS 

INTEGER  AVACSR.SYSSASSIGN.SYSSQIOW.SYSSQIO 
INTEGER  AVAACR 

I  STATUS'S YSSASS I GN( 'AVA0‘ , IAVAC, ,  ) 

I F  <  .NOT. ISTATUS 1THEN 

TYPE  AVA  CHANNEL  ASSIGN  ERROR' 

STOP 

ENDIF 

I F  LAG* 1 

AVACSR-0 

AVAACR-' 435 '0 

I IMAGEBC 1 )-27  1ESC 

I  IMAGES! 2  )-72  1H  CURSOR  HOME 

I IMAGEBt 3  )«27  1ESC 

I IMAGEBI 4 )-74  10  ERASE  TO  END  OF  SCREEN 

WRITE (6,77)1 IMAGEB 
I IMAGEBI 1  )»27  IESC 
I IMAGEBt 2 )«89  IV 
I  IMAGES! 4 )-32  1C0LUMN 
I IMAGEBI 3 )«37  (LINE 
X-' 1000 '0 
Y-2 

ISTATUS-SYSSQIOWI XVAL( 1  ),XVAL< IAVAC > ,XVAL<  XLOC< IOSREADVBLK  )  ) , 
1I0SB. , , 

1 0 , XVAL ( 8  ) , X VAL  <  X  ) , XVAL <  Y  > , X VAL  <  AVACSR ) , XVAL ( AVAACR  > ) 

I F ( AVACSR . EQ .0 )AVACSR- I 

00  1-2,4 

D(  I  )-NOT(D(  I  )  ) 

ENDDO 

HMS-IANDI ISHFT(D(2),-8>, 'F'X) 

TMS- I AND! ISHFT(D(2),-4), 'F'X) 

MS«IAN0<0<2), ’F'X) 

US«:AND( ISHFT(0( 2),-12>,'F'X) 

TS- IAND<  D( 3  > , 7  > 


CAVA] AUX IR IG 


UM-IANDC ISHFT(D<3>.-3>. 'F'X) 

TM-1AN0C ISHFT ( 0<  3  ) , -7  ) , 7  ) 

UH-IANOC ISHFT<O(3>.-10>, 'F'X) 

TH-IANOC  I  SHFT<  D(  3  ) ,  - 1 4  > ,  3  ) 

UD-IAND( D( 4 >  ,  ’F'X) 

TO” IANDC I  SHF T< 0(4). -4). 'F ’X) 

HD”IAND( ISHFT(D(4),-8), 'F'X) 

VRITEC  6. 13 )IIMAGEB.<NOT< D< I ) ) . 1-2 . 4  > . HD , TD , UD ,TH , UH . TM , UM , TS . US , 
1NMS.TMS.MS 

77  FORMAT  < 1 H+ , 4A1 , 1 5 , 10X , 06 . '  ”  ' . Z4 . 10X . F6 . 2 > 

13  FORMAT  < IH-.4A1 ,3( 1X.06) .5X.3Z1 . ' J ' ,1X,2Z1 . ' : ' ,Z1 ,Z1 , ' : ' ,2Z1 , 

1 ' : ' ,3Z1 > 

GO  TO  3 
END 
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APPENDIX  AA 


CAVA3AUX IRIG2 


EXTERNAL  IOSREADVBLK, IOSWRITEVBLK 
BVTE  I XI  100 ) ,  IV  (  100  ) ,  N ,  I  FLAG 
I NTEGER*2  D ( 100). X,V 
INTEGER*2  US ,TS , UM , TM.UH2 1 
INTEGER*2  UH84,UH,TH,UD,TD,HD 
I NTEGER*2  TEMS .MS . HMS , TMS 

INTEGER  AVACSR .SYSSASSIGN, SYSSQIOW, SYSJQIO 
INTEGER  AVAACR 

I  STATUSES VSSASS IGN (  'AVA 0‘ . IAVAC, .  > 

IF  <  .NOT. I  STATUS )THEN 

TYPE  AVA  CHANNEL  ASSIGN  ERROR' 

STOP 

END  IF 

IFLAG-1 

AVACSR-0 

AVAACR-' 435' 0 

X-' 1000 '0 

Y-2 

I STATUS-SYSSQIOWI XVAL < 1 ) . XVAL < IAVAC  > . XVAL  I XLOC( IOSREADVBLK) ) , 
UOSB.  ,  , 

I D, XVAL < 8 ). XVAL ( X ). XVAL <Y>. XVAL (AVACSR), XVAL (AVAACR)) 

IF ( AVACSR. EQ.0JAVACSR-1 

DO  1-2,4 

D(  I  )-NOT(D<  I  )  ) 

ENDDO 

HMS-IANDI ISHFTI D( 2 ) , -8 ) , 'F'X) 

TMS- I AND ( ISHFT!DI2),-4), 'F'X) 

MS* IANO<  D( 2 ) , 'F'X) 

US- IAND< ISHFTI D( 2), -12). 'F'X) 

TS-IANDI D( 3 ) , 7 ) 

UM-IANDI ISHFTI D( 3) ,-3). 'F 'X ) 

TM-IANDI ISHFTI D<  3) ,-7 ) ,7 ) 

UH-IANDI ISHFTI D( 3), -10), ’F'X) 

TH-IAND! ISHFTI 01 3), -14), 3) 

UD-IANDIDI4), 'F'X) 

TD-IANDI ISHFTI DC  4), -4), 'F'X) 

HD- I AND! ISHFTI D( 4), -8), 'F'X) 

WRITE! 6, 13)1 NOTIDI I ) ) , 1-1 .4 ) , HD ,TD , UD ,TH , UH ,TM, UM ,TS , US , 

1 HMS , TMS , MS 
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13  FORMAT < 1X,4< 1X,06).5X.3Z1 , ' : ‘ . 1X.2Z1 . ’ : 1 ,Z1 ,21 . ' : * ,221 , 

1 ■ : ' ,3Z1  > 

GO  TO  3 
END 
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APPENDIX  AB 


CAVA . TAPEDR I VE 3 IRIGREAD 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

THIS  PROGRAM  CONTINUOUSLY  READS  THE  IRIG  FROM  THE  SEARCH  UNIT 
AND  DISPLAYS  IT  ON  THE  TERMINAL. 


THE  INITIALIZATION  SEQUENCE  USED  IN  THIS  PROGRAM  IS  AS  FOLLOWS 

150001  I  TRANSLATE  IRIG  A  WITH  ZERO  FRAME  BYPASS 

156400  I  UPDATE  TIME,  RESET  RECORD  ENABLE.  RESET  INTERRUPT 

157000  l  STOP 

157447  l  THE  FILTERS  ARE  SET  TO  1  AND  10000  HZ 


SOME  TYPICAL  COMMANDS  ARE  AS  FOLLOWS: 

150001  -  TRANSLATE  IRIG  A  WITH  ZERO  FRAME  BYPASS 

156400  -  UPDATE  TIME,  RESET  RECORD  ENABLE,  RESET  INTERRUPT  ENABLE 

157201  •  DRIVE  FORWARD  AT  120  Ips  (NORMAL  REALTIME  PLAYBACK) 

157221  »  DRIVE  FORWARD  AT  240  tps  (EQUIVALENT  TO  FAST  FORWARD) 

157061  -  DRIVE  FORWARD  AT  3  3/4  ( 32  TO  I  PLAYBACK) 

157000  -  STOP 

157222  •  ORIVE  REVERSE  AT  240  Ips 

157202  -  DRIVE  REVERSE  AT  120  <ps 

157206  •  SINGLE  CYCLE  SEARCH  MOOE  AT  120  <ps 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
EXTERNAL  IOSWRITEVBLK , IOSREADVBLK 
INTEGER  SYSSASSIGN.SVSSQI OW , SYSSQ 1 0 
INTEGER  SYSSGETMSG 
I NTEGER*Z  I OSB ( 4  ) , MSGL E N 

INTEGER*2  INPUT , OUTPUT ( 4  ) , INIT( 5  )  ,CONT( 5  > 

I NTEGER*2  US . TS . UM , TM , UH2 1 
INTEGER*2  UH84 , UH , TH , UD , TO . HO 
INTEGER*^  TEMS.MS.HMS.TMS 
CHARACTER  *80  MSGBUF 

DATA  I  NIT/ ' 150001 ' 0 , 1 1 56400 ' 0 . ' 157000' 0, ' 1 57447' 0, 1 157201 '0/ 
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CAVA. TAPEDR IVE 1 IRIGREAD 


DATA  CONT/  ' 156403' 0,  '  156405 '0.  '  156407 ‘0.  1  15641 1  ’0, 

1 1 1 56400' 0/ 

ISTATUS-SYSSASSIGN! 'OOA0' , ITCHAN , ,  ) 

IF( .NOT. ISTATUS  )TYPE  ERROR  IN  DR11-C  CHANNEL  ASSIGN' 
ISTATUS-SVSSaiOVIXVAL! 1 J.XVAL! ITCHAN ) ,XVAL<  XLOC! IOSWRITEVBLK ) > 
1  loss ,  , , 

1 1 N IT , XVAL  < 10). ... > 

IF! ISTATUS. AND. IOSB! 1 > >  GO  TO  1 
TYPE  *.'  ERROR  IN  QIOW  CALL' 

1  STATU S*SYS$GETMSG  ( XVAL ( ISTATUS ) ,  MSGLEN,  MSGBUF , , ) 

IF( .NOT. ISTATUS  )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  *.'010  PARAMETER  STATUS: ' .MSGBUF 
MSGBUF « '  ' 

I  STATUS* SYSSGETMSG  (XVAL! IOSB! 1  )> .  MSGLEN,  MSGBUF.,) 

TYPE  *.'1/0  STATUS: ' .MSGBUF 

1  ICONT* 1 

2  CONTINUE 

45  FORMAT! 06) 

ISTAT'JS*SYSSQIOW<  XVAL!  1  )  ,XVAL(  ITCHAN > .XVAL! XLOC!  IOSWRITEVBLK  >  ) 
1 IOSB , , , 

ICONT! ICONT J.XVAL! 2  ),.,,) 

IF (ISTATUS)  GO  TO  500 

TYPE  ERROR  IN  QIOW  CALL' 

ISTATUS-SYSSGETMSG  ( XVAL ( I  STATUS ) .  MSGLEN.  MSGBUF..) 

IF(  .NOT. ISTATUS )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'QIO  PARAMETER  STATUS MSGBUF 

TYPE  *.'  IOSB( 1  )-' ,IOSB( 1  ), '  IOSB< 2  )* ‘ , IOSB( 2 > 

500  CONTINUE 

I F ( ICONT . EQ . 5 )G0  TO  501 

1 STATUS”SYSSQIOW( XVAL< 1 ). XVAL ( ITCHAN ), XVAL ( XLOC ( IOSREADVBLK )  ) , 
1 IOSB,  ,  . 

10UTP UT ( ICONT ) , XVAL ( 2  ) , ...» 

IF ( ISTATUS)  GO  TO  501 

ISTATUS-SYSSGETMSG  ( XVAL ( I  STATUS > .  MSGLEN,  MSGBUF,,) 

IF ( .NOT. ISTATUS  )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'010  PARAMETER  STATUS :'. MSGBUF 
MSBBUG* 1  ‘ 

ISTATUS-SYSSGETMSG  < XVAL < IOSB< 1  )  ) ,  MSGLEN,  MSGBUF,,) 

TYPE  *,'I/0  STATUS: ' .MSGBUF 
GO  TO  2 

501  IF( ICONT. EQ. 1  )THEN 

C  I ST4- IAND ( OUTPUT! 1 > , ' 000010 ' 0 ) 

C  IST5-IAND(0UTPUT( 1 ), '0000200) 

C  IST6-IAND! OUTPUT! 1 ), ' 000040 ' 0  > 

C  I ST7- I AND! OUTPUT! 1 ), '000100*0) 

C  IST8-IAN0(0UTPUT( 1 ), ' 000200 ' 0  ) 

C  1ST9-IAND! OUTPUT! 1 ), ' 000400 ' 0  ) 

C  IST10-IANO! OUTPUT! 1 ), '00 1000'O) 

C  IST11-IAND! OUTPUT! 1 ), '002000'O> 

C  IF! IST4.NE.01TYPE*. 'START  TIME  FOUND' 

C  IF! IST5.NE.0JTYPE*. 'STOP  TIME  FOUNO ' 

C  IF! IST6.NE.01TYPE*. 'PLAYBACK  CYCLE  BEGAN' 

C  IF! IST7.NE ,0)TYPE*. 'STOPPED' 

C  IF! IST8.NE.01TYPE*. 'PLAYBACK  INTERVAL' 

C  IF! IST9.NE.0)TYPE*. 'SEARCHING' 
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CAVA .TAPEDRIVE) IRIGREAD 


C  IF! IST10.NE.0JTYPE*. 'POWER  OFF' 

C  IF! IST11.NE.0ITYPE*. 'REMOTE  SELECTED' 

ENDIF 

IF! ICONT.LT. 5  )THEN 

ICONT  *IC0NT  *1 

GO  TO  2 

ENDIF 

ICONT-1 

AFTER  ALL  STATUS  AND  IRIG  HAVE  BEEN  READ  IN  LETS  PRINT  THEM  OUT 


IRIG  WORD  1  DIGIT  DECODING 

US-IAND! OUTP  UTI 2  ) , ' F  *  X  ) 

TS-IAND! I SHFT! OUTPUT! 2), -4 >. '7'X) 

UM-IAND! ISHFT! OUTPUT! 2  > , -7  > . ' F ' X  ) 

TM-IAND! ISHFT!0UTPUT!2),-11  ), ' 7 ' X  > 

UH21- ISHFT! OUTPUT! 2), -14) 

IRIG  WORD  2  DIGIT  DECODING 

UH34- ISHFT! I AND! OUTPUT! 3  ) . '3'X>,2> 

UH-IOR! UH84.UH21  ) 

TH-IAND! ISHFT! OUTPUT! 3  1,-2), '3'X> 

UD-IAND! ISHFT! OUTPUT! 3),-4>.'F'X> 

TD- IAND! I SHFT! OUTPUT! 3  ) ,  -8  ) ,  ' F ' X ) 

HD- ISHFT! OUTPUT! 3), -12) 

IRIG  WORD  3  DIGIT  DECODING 

TEMS-IAND! OUTPUT ! 4 ) , 'F'X) 

MS- IAND! ISHFT! OUTPUT! 4) .-4), 'F 'X  ) 

HMS-IAND! I SHFT! OUTPUT! 4). -8). 'F'X) 

TMS-I SHFT! OUTPUT! 4), -12) 

WRITE! 6, 71  10UTPUT! 1  ) . HD . TD , UD . TH . UH . 

1TM .  UM ,  TS  .  US ,  TMS  ,  HMS  ,  MS .  TEMS 
71  FORMAT! IX, 'HEX  STATUS-  ' , Z4 , 4X , ' IR IG  TIME- 

1311 , 1 ! * ,211, ' s  * ,211, ' s • ,211, • . •  ,411  > 

GO  TO  2 
END 
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APPENDIX  AC 


[AVA . TAPEDR I VE  5  COMMAND 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

THIS  PROGRAM  LETS  YOU  ENTER  A  SIX  DIGIT  OCTAL  COMMAND  (16  BITS) 

TO  THE  ON  LINE  DIGITIZER. 


THE  INITIALIZATION  SEQUENCE  USED  IN  THIS  PROGRAM  IS  AS  FOLLOWS 

1 50001  1  TRANSLATE  IRIG  A  WITH  ZERO  FRAME  BYPASS 

156400  I  UPDATE  TIME,  RESET  RECORD  ENABLE.  RESET  INTERRUPT 

157000  I  STOP 

157476  I  THE  FILTERS  ARE  SET  TO  120  Ips  I  HOPE 


SOME  TYPICAL  COMMANDS  ARE  AS  FOLLOWS: 

150001  •  TRANSLATE  IRIG  A  WITH  ZERO  FRAME  BYPASS 

156400  «  UPDATE  TIME.  RESET  RECORD  ENABLE.  RESET  INTERRUPT  ENABLE 

157201  -  DRIVE  FORWARD  AT  120  Ips  (NORMAL  REALTIME  PLAYBACK) 

157221  »  DRIVE  FORWARD  AT  240  Ips  (EQUIVALENT  TO  FAST  FORWARD) 

157061  •  DRIVE  FORWARD  AT  3  3/4  (32  TO  1  PLAYBACK) 

157000  «  STOP 

157222  «  DRIVE  REVERSE  AT  240  Ips 

157202  »  DRIVE  REVERSE  AT  120  Ips 

157206  -  SINGLE  CYCLE  SEARCH  MODE  AT  120  Ips 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
EXTERNAL  IOSWRITEVBLK . IOSREADVBLK 
INTEGER  SYSSASSIGN, S YSSQIOW , S YSSQ 1 0 
INTEGER  SYSSGETMSG 
I NTEGER*2  IOS8( 4 ) , MSGLEN 
INTEGERS  INPUT, OUTPUT. INIT( 4 ) 

CHARACTER  *80  MSG3UF 

DATA  I N IT/ ' 150001 '0, 1 1S6400'O, * 157000'O, • 157447'0/ 

1  STATUS'S YSSASS I GN (  'OOA0'  , ITCHAN, ,  ) 

IF( . NOT , ISTATUS  )TYPE  *,'  ERROR  IN  DR11-C  CHANNEL  ASSIGN' 

I  STATUSES YSSQ 1 0W( XVALf 1 ) ,XVAL( ITCHAN  > ,XVAL<  XLOC( IOSWRITEVBLK ) ) , 
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CAVA. TAPE DRIVE] COMMAND 


1 IOSB, ,  , 

1 INIT , XVAL! 8  ) ,  ,  ,  ,  ) 

2  TYPE  •.'INPUT  CONTROL  WORD' 

READ! 5,45)  INPUT 
45  FORMAT ( 06  ) 

I  ISTATUS-SYSSQIOW!  XVAL! 1 ),XVAL! ITCHAN ) , XVAL<  XLOC! IOSWRITEVBLK >  > , 
1 IOSB , , , 

1  INPUT, XVAL(2 ). , , , ) 

IF ( I  STATUS )  GO  TO  500 

TYPE  ERROR  IN  QIOW  CALL' 

ISTATUS-SYSSGETMSG  ( XVAL< I  STATUS ) ,  MSGIEN.  MSGBUF . ,  > 

I F  <  .NOT. ISTATUS >  TYPE  • , ' ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  *,'010  PARAMETER  STATUS MSGBUF 

TYPE  I0SB< 1 )-• , IOSB< 1  )  , •  IOSB C 2 )- 1 , IOSB! 2 ) 

500  CONTINUE 

II  FORMAT! IX. 1  INPUT-* ,06,2X, • IOSB-1 . 06 . 2X . 06 , 2X , 06 . 2X , 06 > 
ISTATUS-SYSSGETMSG  ( XVAL < IOSB ( 1 > ) .  MSGLEN,  MSGBUF,,) 

I F ( .NOT. ISTATUS)  TYPE  *, ’ERROR  IN  CALL  TO  SGETMSG' 

TYPE  • , ' Q I OW  IO-STATUS  RETURN MSGBUF 
WRITE! 6, 1 1 ) INPUT. IOSB! 1  ) , IOSB! 2  > , I OSB! 3 >  .  1 0SB1 4  ) 

GO  TO  2 
END 


125 


oooooooooooonooooooooooooonooonoo 


APPENDIX  AD 


CAVA. TAP EDR1VE3REVIEW 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

THIS  PROGRAM  CONTINUOUSLY  READS  THE  IRIG  FROM  THE  SEARCH  UNIT 
BUT  DISPLAYS  ONLY  THE  DESIRED  ■SAVE"  IRIG  DESIGNATED  BY  THE 
USER  WHEN  HE  HITS  THE  RETURN  KEY. 

THE  "SAVE’  IRIGS  ARE 

WRITTEN  TO  DISK  IN  REVIEW. IRG  AS  THEY  ARE  COLLECTED. 


THE  INITIALIZATION  SEQUENCE  USED  IN  THIS  PROGRAM  IS  AS  FOLLOWS 

150001  I  TRANSLATE  IRIG  A  WITH  ZERO  FRAME  BYPASS 

156400  I  UPDATE  TIME,  RESET  RECORD  ENABLE,  RESET  INTERRUPT 

157000  I  STOP 

157447  1  THE  FILTERS  ARE  SET  TO  1  AND  10000  HZ 


SOME  TYPICAL  COMMANDS  ARE  AS  FOLLOWS: 

150001  «  TRANSLATE  IRIG  A  WITH  ZERO  FRAME  BYPASS 

156400  -  UPDATE  TIME,  RESET  RECORO  ENABLE,  RESET  INTERRUPT  ENABLE 

157201  *  DRIVE  FORWARD  AT  120  Ips  (NORMAL  REALTIME  PLAYBACK) 

157221  -  DRIVE  FORWARD  AT  240  ips  (EQUIVALENT  TO  FAST  FORWARD) 

157061  «  DRIVE  FORWARD  AT  3  3/4  ( 32  TO  1  PLAYBACK) 

157000  »  STOP 

157222  -  DRIVE  REVERSE  AT  240  Ips 

157202  »  DRIVE  REVERSE  AT  120  Ips 

157206  »  SINGLE  CYCLE  SEARCH  MODE  AT  120  Ips 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
EXTERNAL  IOSWR I TE VBL K , IOSRE ADVBLK 
INTEGER  SYSSASSIGN, S YSSQI OW, S YSSO 10 
INTEGER  SYSSGETMSG 
INTEGER*2  IOSB( 4 ) , MSGLEN 

INTEGER*2  INPUT, OUTPUT! 4  > , INIT( 5 ) ,CONT( 5  > 


u  o  o  o  o 


CAVA. TAPE DRIVE  IRE VIEW 


INTEGER-2  US . TS , UM , TM , UH2 1 
INTEGER*2  UH84 , UH . TH . UO . TO , HD 
INTEGERS  TEMS.MS.HMS.TMS 
CHARACTER  *80  MSGBUF , GET  I R IG« 1 

DATA  IN  IT/ ‘150001 ‘0, ’ 1 56400 ‘0. *  157000' 0, * 1 57447' 0, ' 157201 '0/ 
DATA  CONT/ ' 156403 '0, ' 156405'O, ’ l 56407' 0. • 15641 1 ‘0. 

1 ' 1 56400 '0/ 

OPEN( UN  IT* 8 , NAME* ' REVIEW. I RG ' .TYPE- 'NEW'  ) 

I  STATUS -SYSSASS I GN!  'ODA0' , ITCHAN. ,  ) 

I F I  . NOT . I  STATUS  )TYP  E  *.'  ERROR  IN  DR11-C  CHANNEL  ASSIGN' 

I STATUS-SYSSQI OW! XVAL ( 1 ),XVAL! ITCHAN ), XVAL! XLOC! IOSWRITEVBLK ) ) 
1I0SB. . . 

1 INIT.XVAL! 10), ...  ) 

IF! ISTATUS. AND. I0S8! 1 > >  GO  TO  1 
TYPE  *,'  ERROR  IN  OIOW  CALL' 

I STATUS*S YSSGETMSG  < XVAL < I  STATUS > .  MSGLEN,  MSGBUF.,) 

I F <  .NOT. ISTATUS  )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG 1 
TYPE  * , ' QIO  PARAMETER  STATUS MSGBUF 
MSGBUF-'  ' 

I STATUS-S YSSGETMSG  ( XVAL < IOSB( 1  )) ,  MSGLEN,  MSGBUF,,) 

TYPE  *,'I/0  STATUS: ' .MSGBUF 

1  ICONT-1 

TYPE  *, ’  TO  SAVE  IRIG  HIT  RETURN  WHEN  DESIRED  SCENE  APPEARS.' 
READ<  S.SIGETIRIG 
5  FORMAT! A) 

2  CONTINUE 

45  FORMAT! 06) 

I STATUS-SYSSQI 0W<  XVAL  < 1 ),XVAL! ITCHAN  > .XVAL! XLOC! IOSWRITEVBLK) ) 
1I0SB,  .  . 

1C0NT! ICONT  ) , XVAL! 2  > , , , ,  ) 

IF! ISTATUS)  GO  TO  500 
TYPE  *,'  ERROR  IN  OIOW  CALL' 

I STATUS-S YSSGETMSG  ( XVAL ( I  STATUS ) ,  MSGLEN,  MSGBUF,.) 

IF!  .NOT. ISTATUS  )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG’ 

TYPE  * , 'QIO  PARAMETER  STATUS MSGBUF 

TYPE  *,'  IOSB! 1  )-'  , IOSB! 1  ), '  IOSB! 2 )* ' , IOSB! 2 > 

500  CONTINUE 

IF! ICONT. EQ.5)G0  TO  501 

I STATUS-S YSSQIOW! XVAL! I l.XVAL! ITCHAN ), XVAL 1 XLOC ( IOSREADVBLK  ) ) , 
1 IOSB , ,  , 

10UTPUT! ICONT  ),XVAL!2), , ,  ,  ) 

IF! ISTATUS  )  GO  TO  501 

ISTATUS-SYSSGETMSG  ! XVAL! ISTATUS  ) ,  MSGLEN,  MSGBUF,,) 

IF! .NOT. ISTATUS)  TYPE  ‘.'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  *,'010  PARAMETER  STATUS :', MSGBUF 
MSB8UG- '  ' 

ISTATUS-SYSSGETMSG  ! XVAL! IOSB! 1  )) ,  MSGLEN,  MSGBUF,,) 

TYPE  *,'I/0  STATUS: ' .MSGBUF 
GO  TO  2 

501  IF! ICONT. EQ. 1 )THEN 

C  IST4-IANDI OUTPUT! 1 >, ' 000010 ' 0 ) 

C  IST5-IAN0! OUTPUT! 1  ),  '000020' 0) 

C  I ST6* IAND! OUTPUT! 1  ),  '000040'O) 

C  IST7-IAND! OUTPUT  < 1 ) , ' 000100 ' 0 ) 

C  IST8»IAND(0UTPUT! 1 ), '000200'O) 
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C  IS T9- IAND! OUTPUT! 1 ) , 1 000400 1 0 ) 

C  IST10-IAND! OUTPUT! I ). '001000'O) 

C  I ST1 l-IAND! OUTPUT! 1 ) , ’ 002000 ' 0 ) 

C  IF! IST4.NE.01TYPE*. 'START  TIME  FOUND' 

C  IF! IST5.NE.0ITYPE*. 'STOP  TIME  FOUND' 

C  IF! IST6.NE .0>TYP£», 'PLAYBACK  CYCLE  BEGAN' 

C  IF! IST7.NE.0)TYPE*. 'STOPPED' 

C  IF! IST8.NE.0)TYPE*. 'PLAYBACK  INTERVAL' 

C  IF! IST9.NE.0)TYPE*. 'SEARCHING' 

C  IF! IST10.NE .0)TYPE«, 'POWER  OFF ' 

C  IF! IST11.NE.0)TYPE*. 'REMOTE  SELECTED' 

ENDIF 

IF! ICONT.LT. 5  JTHEN 

ICONT  * ICONT ♦ 1 

GO  TO  2 

ENDIF 

ICONT-I 

AFTER  ALL  STATUS  AND  IRIG  HAVE  BEEN  READ  IN  LETS  PRINT  THEM  OUT 


IRIG  WORD  1  DIGIT  DECODING 

US*IANDI OUTPUT! 2  ) , 'F 'X) 

TS* I AND! I SHFT! OUTPUT! 2 >,-<>, '7'X) 

UM* I AND! I SHFT! OUTPUT! 2). -7). 'F'X> 

TM-IAND! ISHFT!0UTPUT(2),-11 >, '7'X) 

UH21 - 1 SHFT! OUTPUT! 2  ) . - 14  ) 

IRIG  WORD  2  DIGIT  DECOOING 

UH84-ISHFT! IAND! OUTPUT! 3 ) , '3‘X).2> 

UH-IOR! UH84.UH21  > 

TH* IAND! I SHFT! OUTPUT! 3). -2), '3'X) 

UD* IAND! I SHFT! OUTPUT! 3), -4). ' F 1 X  ) 

TD-IAND! I SHFT! OUTPUT! 3). -8), ' F ' X  ) 
HD-ISHFT(0UTPUT(3),-12) 

IRIG  WORD  3  DIGIT  DECODING 

TE MS* IAND! OUTPUT  <  4  ) ,  'F'X) 

MS* IAND! I SHFT! OUTPUT! 4), -4), ’F'X) 

HMS-IAND! I SHFT! OUTPUT! 4). -8),  'F'X) 

TMS* ISHFTI0UTPUT(4),-I2) 

WRITE! 6.71  tOUTPUT! 1  )  , HO , TO . UD , TH , UH , 
ITM.UM.TS.US.TMS, HMS , MS , TEMS 
WRITE! 8,71 JOUTPUT ! 1 > . HO , TD , UD . TH , UH . 
ITM.UM.TS.US.TMS, HMS, MS. TEMS 
71  FORMAT! IX, 'HEX  STATUS-  ' ,Z4 , 4X , ' IRIG  TIME* 

131 1  .  '  :  '  .21 1 , ' : ' .211 . ' : ' ,211  ,  '  .  ‘  .411  ) 

READ! 5,5, END-7777  )GETIRIG 
GO  TO  2 

7777  CLOSE! UNIT-8  ) 

STOP  '  REVIEW. IRG  GENERATED' 

END 
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ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 


THIS  PROGRAM  USES  THE  REVIEW. IRG  FILE  TO  FIND  SEARCH  TIMES. 

THE  FOLLOWING  INSTRUCTIONS  ARE  SENT  TO  THE  IRIG  SEARCH  UNIT 
ON  THE  ON  LINE  DIGITIZER  AND  THEN  THE  REVIEW. IRG  FILE  IS  READ  FOR  THE 
FIRST  SEARCH  TIME. 

1 50001  I  TRANSLATE  IRIG  A  WITH  ZERO  FRAME  BVPASS 
156400  I  UPDATE  TIME,  RESET  RECORD  ENABLE,  RESET  INTERRUPT 
157000  1  STOP 

157447  1  THE  FILTERS  ARE  SET  TO  120  Ips  I  HOPE,  NO  CARRIER  FILTER 

ENTER  IRIG  INPUT: 

THE  FOLLOWING  IS  THE  SEQUENCE  OF  CONTROL  WORDS  THAT  WOULD  BE  SENT 
IF  THE  OPERATOR  ENTERS  A  START  IRIG  TIME  OF  000:00:0 1:00.0000 

150400  )  SEARCH  START  TIME  DAYS  "00X"  WHERE  X  IS  NOT  SET  IN  THIS  WORD 

151000  1  SEARCH  START  TIME  DAYS  “ SS0" ,  HOURS  "00"  WHERE  SS  WAS  SET  ABOVE 

151401  1  SEARCH  START  TIME  MINUTES  “01“  MINUTES 

152000  1  SEARCH  START  TIME  SECONDS  "00"  SECONDS 

152400  I  SEARCH  START  TIME  MILLISECONOS  .00XX 

153000  1  SEARCH  START  TIME  MILLISECONDS  .SS00  WHERE  SS  WAS  SET  ABOVE 

THE  PROGRAM  AFTER  THE  IRIG  IS  ENTERED  TRANFERS  TO  THE  IRIG  SEARCH 
UNIT  TRANSFERS  THE  FOLLOWING  CONTROL  WORD  AND  THE  SEARCH  PROCESS  IS 
INITIATED. 

157227  1  SEARCH  TO  START  TIME  000:00:01:00.0000  OR  USER  ENTERED 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
EXTERNAL  IQSWR I TE VBLK , IOSREADVBLK 
INTEGER  SYSSASSIGN.SYSSQI OW , SYS SQ 1 0 
INTEGER  SYSIGETMSG.SYSSBINTIM, S YSSSETIMR , S YSSWA I TF R 
INTEGER*2  IOSB< 4  )  , MSGLEN , OSTATUS 
I NTEGE R*2  READCNTRL ( 3  ) 

I NTEGER*2  INPUT! 11  ),OUTPUT(4> 

INTEGER*2  SW1 , SW2 , SW3 , SW4 , SW5 , SW6 , SW7 , SW8 , SW9 , SW10 , SW1 1 , SW1 2 
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DOUBLE  PRECISION  QUAD 
CHARACTER* 1 6  T IME , F I L E NAME *60 
INTEGER'2  TM, UM ,TS . US . ITMS , HMS , TMS 
INTEGER'S  HD, ITD,TD,UD,UH,TH 
INTEGER'S  I  DAY, I  HR, IM1 N , I  SEC , IMSEC 
INTEGER'S  TEMS.IUMS.UMS 

ruAOArTFB  *QOf  MCGRilP 

EQUIVALENCE! SW1 , I NPUTC 5 ) ) , ( SW2 . I NPUT<  6  >  > . ( SW3 , I NPUT<  7  >  > 

EQUIVALENCE! SW4, INPUT! 8  >),! SW5, INPUT! 9  >). < SW6 , INPUT! 10! ) 
COMMON/AVACHAN/ IAVACHAN 

DATA  INPUT/ ‘ 150001 '0, ' 1 56*00' 0, ' 157000' 0, *  157**7 '0, ' 150*00 '0, 

1 ' 1 51000 ' 0 , ' 151*01 '0, ' 1 5S000 ' 0 , ' 1 52*00' 0, ' 153000" 0. ' 157227 '0/ 

DATA  READCNTRL / ' 1 57**2 ' 0, ' 157201 '0. ‘157061 '0/ 

I  STATUS “SYSSASS I GN!  ' AVA0 '  . IAVACHAN ,  .  > 

IF! .NOT. ISTATUS (TYPE  *,'  ERROR  IN  AVA  CHANNEL  ASSIGN’ 

I  STATUS* SYSSASS I GN  <  'ODA0' , ITCHAN, ,  > 

IF!  .NOT. ISTATUS  )TYPE  *,'  ERROR  IN  ON  LINE  DIGITIZER  CHANNEL  ASSIGN' 
TYPE  '.'ENTER  BEGINNING  FILE  NAME  TO  BE  USED  FOR  DISK  FILES'. 

1'.  <!.e.  X00320000)' 

REA0!5,*5)F I LENAME 
*5  FORMAT! A) 

C2  TYPE  *, 'ENTER  SEARCH  START  IRIG  TIME  IN  THE  FOLLOWING  FORMAT:' 

TYPE  *, 'DAY:HR:MN:SC.MSEC' 

TYPE  *,'000:00:01:00.0000  FOR  EXAMPLE’ 

READ! 5, *5  )  I  DAY, I  HR, I  MIN, I  SEC, IMSEC 
*5  FORMAT! 13, IX. 12, IX. 12, IX. 12. IX, I*) 

0PEN!UNIT*8, NAME* 'REVIEW. I RG' . STATUS- ’ OLD ’  ) 

READ! 8,71 .END-7777  (OUTPUT! 1  ) , HD , TD , UD , TH , UH , 

1  TM ,  UM  .  TS  .  US  ,  TMS  ,  HMS  ,  MS  ,  TEMS 
1  FORMAT! 13X.Z4, 15X, 

1311, IX, 211, IX, 211, IX, 211, IX, *11) 

HD* I  DAY/ 100 
I  TO* I  DAY-! HD ' 100 ) 

TD-ITD/10 
UD* ITO-! TD* 10 ) 

SW1-' 006420 '0 
SW1-ISHFT! I  OR! SW1 , TD  > , *  ) 

SW1 • I  OR! SW1 , UD  > 

SWZ* ' 001 5 10 '0 

SW2-ISHFT! I  OR!  I AND ( HD , 3 ) , SW2 ) , 2 > 

TH* 1  HR / 10 

SW2-ISHFT! IOR! IAND! TH , 3 ) , SW2 ) , 4 ) 

UH* I  HR-! TH* 10 ) 

SW2* I  OR! SWZ , UH ) 

SW3* '006*60 '0 
TM*IMIN/10 
UM*IMIN-( TM" 10 ) 

SW3-ISHFT! IOR! SW3 , TM ) , < ) 

SW3-I0R! SW3.UM) 

TS* I  SEC/ 10 
US*ISEC-!TS*10) 

SW4*  ' 006500 '0 
SW4-ISHFT! IOR! SW4 , TS ) , * ) 

SW4* I OR! SW* . US ) 

SW5-' 006520 '0 
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SW6-'006540’O 
HMS-IMSEC/1000 
ITMS-IMSEC-! HMS*1000> 

TM3-ITMS/100 
IUMS-ITMS-!  TMS* 100 ) 

UMS- I UMS/ 10 
TEMS-IUMS-! UMS*10) 

SW5-ISHFT!  IOR( SW5 , HMS ) , 4  > 

SW5- I  OR!  SW5 , TMS ) 

SW6«ISHFT< IOR! SW6 , UMS ) , 4 ) 

SU6-IOR( SW6.TEMS  ) 

C  WR I TE  <  6 , 55  )  SW 1 . SW2 , SW3 , SV4 , SW5 , SW6 

55  F ORMAT (IX,1 SWX- '  , 6 (  1 X , Z4  )  ) 

I  STATUS «S YSSQ I OW( XVAL! 1 l.XVAL! ITCHAN ) , XVAL (XLOC! IOSWRITEVBLK) ). 

1 IOSB, .  . 

[INPUT, XVAL ( 22  ),,,,) 

WRITE <  6. 171  10UTPUT ( 1  ) , HO . TO . UO , TH . UH , 

1 TM , UM . TS , US . TMS , HMS . MS . TEMS 

171  FORMAT! IX, ' SEARCHING  FOR  HEX  STATUS-  ' . 24 . 4X , ' I R I G  TIME-  ', 

131 1 , ' : ' .211 . ' : ' .21 1 . '  :  ' ,211  .  '  .  '  .41 1  > 

IF( .NOT. ISTATUS.OR. .NOT.  IOSB( 1 ) )GO  TO  34 
C  CHECK  TAPEDRIVE  STATUS 

61  ISTATUS-SYSSQIOW!  XVAL! I l.XVAL! ITCHAN >, XVAL (XLOC ( IOSWRITEVBLK > ) , 

1IOSB,  ,  , 

1 ' 1S6403'O.XVAL( 2  I .  ,  ,  .  I  1  TELL  DATUM  YOU  WANT  STATUS 
ISTATUS-SYSSQIOW!  XVAL! 1 > , XVAL ( I TCHAN ) , XVAL! XL OC < I OSREADVBLK  )  >, 

1 IOSB,  ,  . 

1DSTATUS, XVAL ( 2  ),,,,) 

I STATUS-S YSSQ I OW( XVAL! 1 ) , XVAL ( ITCHAN 5 , XVAL ( XLOC! IOSWRITEVBLK ) I , 

1IOSB. , , 

1 ' 156400'O,XVAL<2) , , , , >  ! CLEAR  DATUM 

IF ( IANOI DSTATUS , 1 100 1 0 ) . EQ .0 )GO  TO  61  1IS  IT  STOPPED?? 

C  MOVE  FOWARD  TO  CORRECT  IRIG  THEN  PLAY  TAPE  AT  32/1  AND  TRANSFER  IMAGES. 

I STATUS-S YSSQ I OW< XVAL! 1  l.XVAL! I TCHAN 1 , XVAL < XLOC! IOSWRITEVBLK II , 

1IOSB, , , 

1READCNTRL, XVAL ! 4 ) , , , ,  )  1SET  UP  PLAYBACK  FILTER  AND  MOVE  BACK  FOWARD  120  IPS 
TIME- '0000  00:00:09.60’ 

ISTAT’JS-SYSSBINTIM!  XDESCR!  TIME  )  .QUAD) 

IF! .NOT. ISTATUS1TYPE  ERROR  IN  TIME  DELAY' 

ISTATUS-SYSSSETIMR! XVAL  <  6  )  , QUAD , ,  ) 

IF!  .NOT. ISTATUS 1TYPE  ERROR  IN  TIME  DELAY' 

I STATUS-S YSSWA I TF R ( XVAL <  6  )  ) 

IF! .NOT. ISTATUS1TYPE  ERROR  IN  TIME  DELAY' 

C  NOW  PLAYBACK  AT  32/1 

I STATUS-S YSSQ I OW< XVAL! 1 > ,XVAL! ITCHAN  >, XVAL ! XLOC! IOSWRITEVBLK) ) , 

1 IOSB , , , 

1REA0CNTRL! 3)  ,XVAL< 2 > , ,  ,  ,  )  1SET  UP  PLAYBACK  FILTER  AND  MOVE  BACK  FOWARD  120  IPS 

62  ISTATUS-SYSSQIOW! XVAL ( 1 ) ,XVAL! ITCHAN ), XVAL ( XLOC! IOSWRITEVBLK) ) , 

1 IOSB, , , 

1 ' 156403'O,XVAL!2>, , , ,  )  ITELL  DATUM  YOU  WANT  STATUS 
ISTATUS-SYSSQIOW! XVAL! 1 l.XVAL! I TCHAN ), XVAL < XLOC ( IOSREADVBLK)  >, 

1 IOSB. , , 

IDSTATUS, XVAL ! 2  ),,,,) 
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IF ( I AND< DSTATUS , 2 ) . EQ .0 )G0  TO  62  IIS  TAPE  SYNC  ON? 

GIVE  AVA  TIME  TO  LOAD  ALL  FIELDS 

TIME* '0000  00:00:03.00' 

I STATUS-S YSSB INTIM!XD£SCR!TIM£>, QUAD  ) 

IF< . NOT. ISTATUS  (TYPE  *.'  ERROR  IN  TIME  DELAY' 

I STATUS-S YSSSE  T I MR!  XVAL ( 6 ) .QUAD, ,  ) 

IF( .NOT. ISTATUS  )TYP£  *,'  ERROR  IN  TIME  DELAY' 
ISTATUS«SYSSWA1TFR!XVAL<6> ) 

IF< .NOT. ISTATUS  )TYPE  ERROR  IN  TIME  DELAY' 

IS  FIELD  1  BEING  LOADED?  (0  ,  1  ,  2  .  3) 

CALL  FIELD! IFIELD, I A VAC SR  ) 

IF! IFIELD. NE. 1 >GO  TO  23 


WRITE  THE  IMAGE  TO  DISK 

CALL  AVATODSK2! FILENAME  ) 

GO  TO  2 

34  TYPE  *,'  ERROR  IN  QIOW  CALL' 

ISTATUS-SYSSGETMSG  ! XVAL ( t STATUS ) ,  MSGLEN,  MSGBUF . , ) 

IF!  .NOT. ISTATUS  )  TYPE  *,' ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  *,'OIO  PARAMETER  STATUS MSGBUF 
MSGBUF-'  ' 

ISTATUS-SYSSGETMSG  I XVAL I IOSB i 1 ) ) ,  MSGLEN,  MSGBUF,,) 

TYPE  * , ‘ I /O  STATUS: ’ .MSGBUF 
S00  CONTINUE 

11  FORMAT! IX. ' INPUT-' ,06, 2X. ' IOSB-' , 06 . 2X ,06 . 2X , 06 . 2X . 06 > 

GO  TO  2 

7777  ISTATUS-SYSSQIOW! XVAL ! 1 J.XVAL! ITCHAN ) , XVAL ! XLOC! IOSWR ITE VBLK ) ) , 

1 IOSB , ,  , 

1 ' 157220'O.XVAL!2>, , , ,  )  iSTOP  HBR-3000  TAPE  DRIVE 
STOP  'ALL  IRIGS  HAVE  BEEN  FOUND’ 

END 

SUBROUTINE  FIELD! IFIELD. AVACSR) 

INTEGER  AVACSR 

EXTERNAL  IOSWR ITEVBLK , IOSREADVBLK 
INTEGER  SYSSASSIGN , SYSSQIOW, SYSSQIO 
INTEGER  SYSSGETMSG 
INTEGER*2  IOSB! 4 ), MSGLEN , NPUT , X , Y 
I NTEGER*2  INPUT, OUTPUT, I N IT! 4 > 

CHARACTER  *80  MSGBUF 
COMMON/AVACHAN/ ITCHAN 

IAVACSR- 1 4001 1 0  I  SET  MEMORY  WINDOW  ENABLE  AND  INITIALIZE  AVA 
I  SAVE -AVACSR 

ISTATUS-SYSSQIOW! XVAL! 1 ) .XVAL! ITCHAN ), XVAL ( XLOC ( IOSREADVBLK  >  ) , 

1 IOSB ,  .  , 

10UTPUT, XVAL!2),XVAL(X), XVAL! Y>, XVAL! IAVACSR ), XVAL ! IAVAACR )  ) 

IF! ISTATUS )  GO  TO  501 

TYPE  ERROR  IN  QIOW  CALL' 

ISTATUS-SYSSGETMSG  ! XVAL! ISTATUS ) ,  MSGLEN,  MSGBUF,,) 

IF! .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 
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TYPE  *,'QIO  PARAMETER  STATUS: ‘ .MSGBUF 
MSGBUF ■ '  ' 

I  STATU S»SYSSGETMSG  ( XVAL( IOSB( 1)  ) ,  MSGLEN,  MSGBUF,,) 
IF {  .NOT. tSTATUS  )  TYPE  ".'ERROR  IN  CALL  TO  SGETMSG ’ 
TYPE  ".'I/O  STATUS: ' .MSGBUF 
SjBI  AVACSR«1  SAVE 

IF IELO" IAND( OUTPUT , 3  ) 

RETURN 

END 
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THIS  PROGRAM  LETS  THE  OPERATOR  ENTER  THE  START  SEARCH  TIME  FROM  THE 
KEYBOARD  AND  THEN  TELLS  THE  SEARCH  UNIT  TO  GO  AND  SEARCH  FOR  THE  IRIG 
TIME  ENTERED. 

THE  FOLLOWING  INSTRUCTIONS  ARE  SENT  TO  THE  IRIG  SEARCH  UNIT 
ON  THE  ON  LINE  DIGITIZER  AND  THEN  THE  OPERATOR  IS  ASKED  FOR  START  IRIG. 

150001  I  TRANSLATE  IRIG  A  WITH  ZERO  FRAME  BYPASS 
156400  I  UPDATE  TIME,  RESET  RECORD  ENABLE,  RESET  INTERRUPT 
157000  I  STOP 

157447  I  THE  FILTERS  ARE  SET  TO  120  lps  I  HOPE,  NO  CARRIER  FILTER 
ENTER  IRIG  INPUT: 

THE  FOLLOWING  IS  THE  SEQUENCE  OF  CONTROL  WORDS  THAT  WOULD  BE  SENT 
IF  THE  OPERATOR  ENTERS  A  START  IRIG  TIME  OF  000:00:01:00.0000 

150400  I  SEARCH  START  TIME  DAYS  "00X*  WHERE  X  IS  NOT  SET  IN  THIS  WORD 

151000  1  SEARCH  START  TIME  DAYS  " SS0" ,  HOURS  *00*  WHERE  SS  WAS  SET  ABOVE 

151401  1  SEARCH  START  TIME  MINUTES  *01*  MINUTES 

152000  1  SEARCH  START  TIME  SECON0S  "00*  SECONDS 

152400  1  SEARCH  START  TIME  MILLISECONDS  .00XX 

153000  1  SEARCH  START  TIME  MILLISECONDS  .SS00  WHERE  SS  WAS  SET  ABOVE 

THE  PROGRAM  AFTER  THE  IRIG  IS  ENTERED  TRANFERS  TO  THE  IRIG  SEARCH 
UNIT  TRANSFERS  THE  FOLLOWING  CONTROL  WORD  AND  THE  SEARCH  PROCESS  IS 
INITIATED. 

157207  I  SEARCH  TO  START  TIME  000:00:01:00.0000  OR  USER  ENTERED 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
EXTERNAL  IOIWRITEVBLK , IOSREADVBLK 
INTEGER  SYSSASSIGN, SYSSQIOW, SYSSQIO 
INTEGER  SYS JGETMSG 
INTEGER*2  IOSB< 4 ) , MSGLEN 
INTEGER*2  INPUT! 11) 

INTEGER*2  SW1 , SWZ , SW3 , SW4 , SW5 , SW6 , SW7 . SW8 , SW9 , SW10, SW1 1 ,SW12 
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I NTEGER*2  TM. UM . TS . US . ITMS , HMS .TMS 
INTEGER*2  HD , I TD . TD , UD , UH , TH 
I NTEG£R*2  I  DAY , I  HR, IMI N , I  SEC . IMSEC 
I NTEGER*2  TEMS, IUMS.UMS 
CHARACTER  *80  MSGBUF 

EQUIVALENCE! SW1 , INPUT(5 ) > . < SW2 , INPUT! 6  >  > . <  SW3, INPUT! 7  >  > 

EQUIVALENCE l SWA , INPUT! 8 ) ) , <  SW5 , INPUT! 9 ) ) , ( SU6. INPUT! 10 > ) 

DATA  INPUT/' 150001 '0, 1 156400’O, ' 1S7000'O, 1 157447’0. 1 150400'O, 

1 ' 1S1000'O. •151401*0,' 1 52000' 0, ' 152400 '0, ' 1 53000' 0, ' 157207 '0/ 
ISTATUS-SYSSASSIGNI 'ODA0' , ITCHAN. , ) 

IF!  .NOT. ISTATUS 1TYPE  *,'  ERROR  IN  ON  LINE  DIGITIZER  CHANNEL  ASSIGN* 

2  TYPE  *. 'ENTER  SEARCH  START  IRIG  TIME  IN  THE  FOLLOWING  FORMAT:' 

TYPE  *, ' DAY : HR : MN : SC .MSEC ' 

TYPE  *,'000:00:01:00.0000  FOR  EXAMPLE' 

READ! 5,45 ) I  DAY, I  HR, IMI N, I  SEC, IMSEC 

45  FORMAT! 13, IX, 12. IX. 12, IX, 12. IX. 14) 

HD-IDAY/100 
ITOMDAY-!  H D *  1 00 ) 

TO-ITD/10 

UD-ITO-!TD*10) 

SW1  * ' 006420 ' 0 

SW1 » I SHFT! I OR! SW1 , TD ) , 4  ) 

SW1-I0R! SW1 ,UD  ) 

SW2" ' 0015 10 ' 0 

SW2* I SHFT!  I  OR! 1ANDI HD , 3 ) , SW2  ) , 2  ) 

TH* I  HR/ 10 

SW2-ISHFT!  IOR! I AND ( TH , 3 ) , SW2  ) , 4 ) 

UH* I  HR-! TH* 10  ) 

SW2" IOR! SW2 , UH ) 

SW3* '006460' 0 
TM- IM IN/ 10 
UM* IMI N- ( TM* 10 ) 

SW3-ISHFT1 I OR <  SW3 , TM ) , 4 ) 

SW3* 1  OR! SW3 , UM ) 

TS-ISEC/10 

US-ISEC-(TS*10) 

SW4-' 006500 '0 
SW4-ISHFT1 IOR! SW4 , TS ) , 4 ) 

SW4* IOR! SW4 , US ) 

SW5* '006520 '0 
SW6*' 006540 '0 
HMS* IMSEC/ 1000 
ITMS-IMSEC-i HMS* 1000 ) 

TMS* ITMS/ 100 
I UMS* ITMS- ( TMS* 100 ) 

UMS-IUMS/10 
TEMS-IUMS-! UMS* 10  > 

SW5-ISHFT! IOR! SW5 , HMS ) , 4 ) 

SW5* IOR! SW5 , TMS ) 

SW6-ISHFT! IOR! SW6 , UMS ) , 4 ) 

SW6-I0R! SW6.TEMS) 

C  WRITE! 6,55  )  3W1 , SW2 . SW3 , SW4 , SW5 , SW6 

55  FORMAT! IX, 'SWX-' ,6! 1X.Z4)  > 

ISTATUS-SYSSQIOW! XVAL! 1 >,XVAL! ITCHAN  > ,XVAL! XLOCI IOSWRITEVBLK > ) , 
1I0SB. ,  . 


135 


CAVA. TAPEOR I V£  1 STOSTART 


1INPUT,XVAL<  22), , , , ) 

I F <  .NOT. ISTATUS.OR. .NOT.  IOSBI  1  >  )GO  TO  34 
GO  TO  2 

34  TYPE  ERROR  IN  QIOV  CALL1 

ISTATUS-SYSSGETMSG  ( XVALI ISTATUS ) ,  MSGLEN.  MSGBUF , , ) 
IF< .NOT. ISTATUS >  TYPE  *, ‘ERROR  IN  CALL  TO  SCETMSG' 

TYPE  * , 1 QIO  PARAMETER  STATUS : 1 .MSGBUF 
MSGBUF-'  ' 

ISTATUS-SYSSGETMSG  ( XVAL ( IOSB< 1 ) ) .  MSGLEN,  MSGBUF,,) 
TYPE  *.'1/0  STATUS: ' .MSGBUF 
5*0  CONTINUE 

11  FORMAT! IX. ' INPUT-' ,06.2X, ‘ IOSB-' .06 . 2X .06 , 2X , 06 , 2X ,06  ) 

GO  TO  2 
END 
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APPENDIX  AS 
CAVA .TAPEDRIVEJ  STATUS R 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

THIS  PROS RAM  CONTINOOOSLV  READS  THE  STATUS  FROM  THE  SEARCH  UNIT 
AND  DISPLAYS  IT  ON  THE  TERMINAL. 


THE  INITIALIZATION  SEQUENCE  USED  IN  THIS  PROSRAM  IS  AS  FOLLOUS 

1500*1  |  TRANSLATE  IRIS  A  WITH  ZERO  FRAME  BYPASS 

156400  l  UPDATE  TIME,  RESET  RECORD  ENABLE.  RESET  INTERRUPT 

157000  I  STOP 

157447  1  THE  FILTERS  ARE  SET  TO  1  AND  10000  HZ 


SOME  TYPICAL  COMMANDS  ARE  AS  FOLLOWS: 

150001  -  TRANSLATE  IRIS  A  WITH  ZERO  FRAME  BYPASS 

156400  «  UPDATE  TIME,  RESET  RECORD  ENABLE,  RESET  INTERRUPT  ENABLE 

157201  -  DRIVE  FORWARD  AT  120  Ips  <  NORMAL  REALTIME  PLAYBACK) 

157221  •  DRIVE  FORWARD  AT  240  Ips  (EQUIVALENT  TO  FAST  FORWARD) 

157061  -  DRIVE  FORWARD  AT  3  3/4  ( 32  TO  1  PLAYBACK) 

157000  -  STOP 

157222  »  DRIVE  REVERSE  AT  240  Ips 

157202  ■  DRIVE  REVERSE  AT  120  Ips 

157206  «  SINGLE  CYCLE  SEARCH  MODE  AT  120  Ips 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
EXTERNAL  IOSWRITEVBLK, IOSREADVBLK 
INTEGER  SYSSASS IGN , SYSSQIOW , SYSSQIO 
INTEGER  SYSSGETMSG 
I NTEGER*2  IOSB( 4  )  .MSGLEN 

INTEGER'2  INPUT.OUTPUTt  4 ) . INITC 5 ) ,CONT< 5  ) 

INTEGER*2  US . TS , UM , TM , UH2 1 
INTEGER*2  UH84 , UH , TH , UD , TD , HD 
INTEGER*2  TEMS.MS.HMS.TMS 
CHARACTER  *80  MSGBUF 

DATA  I N IT/ ' 150001 '0, 1 156400’O, ' 157000‘O, ' 157447'0, ' 157201 '0/ 
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DATA  CONT/' 156403 '0. 1 156405' 0, ' 156407 ' 0 , ‘ 1 564 1 1 ' 0 , 

1 ’ 1 56400' 0/ 

ISTATUS»SYSSASSIGN! 'ODA0' , 1TCHAN , . > 

IF!  .NOT. ISTATUS  )TYPE  ERROR  IN  DR11-C  CHANNEL  ASSIGN' 

C  ISTATUS*SYSSQIOW!  XVAL ( 1 >,XVAL< ITCHAN ) , XVAL ( XLOC! IOSWRITEVBLK  )  ) 

C  1  I OSB ,  .  . 

C  UNIT,  XVAL  !  8  ) , , , ,  ) 

C  IF! ISTATUS.AND. IOSB< I ) )  GO  TO  1 

C  TYPE  ERROR  IN  QIOW  CALL' 

C  ISTATUS*SYSSGETMSG  ( XVAL ( I  STATUS  ) ,  MSGLEN,  MSGBUF , ,  ) 

C  IF( .NOT. ISTATUS >  TYPE  •.'ERROR  IN  CALL  TO  SGETMSG ' 

C  TYPE  * , ' QIO  PARAMETER  STATUS MSGBUF 

C  MSGBUF-'  ' 

C  I STATUS-SYSSGETMSG  ( XVAL ( IOSB< 1  )  )  ,  MSGLEN.  MSGBUF,,) 

C  TYPE  *,'I/0  STATUS: ' .MSGBUF 

1  ICONT-1 

2  CONTINUE 

45  FORMAT! 06) 

I STATUS«SYS$QIOV( XVAL  < 1 ),XVAL( ITCHAN ). XVAL ( XLOCC IOSWRITEVBLK  )  ) 
1 IOSB, . . 

1 CONT < ICONT  ) , XVAL ( 2  ) .  ,  ,  ,  ) 

IF < ISTATUS)  GO  TO  500 

TYPE  ERROR  IN  QIOW  CALL ' 

I STATUS-SYSSGETMSG  < XVAL ( ISTATUS  ) ,  MSGLEN,  MSGBUF,,) 

I F  <  .NOT. ISTATUS  )  TYPE  * .  1  ERROR  IN  CALL  TO  SGETMSG' 

TYPE  • , 1 QIO  PARAMETER  STATUS :', MSGBUF 

TYPE  IOSB! 1  )-' ,IOSB< 1  ),  '  IOSB< 2 >- ' , IOSB< 2  ) 

500  CONTINUE 

I  STATUS* SYSSQ I OW! XVAL  < 1 ),XVAL< I TCHAN > , XVAL ! XLOC! IOSREADVBLK )  ) , 
1 1 OSB , , , 

10UTPUT! ICONT), XVAL<2), , , , ) 

I F ( ISTATUS )  GO  TO  501 

I  STATUS -SYS SGETMSG  ( XVAL ( I  STATUS > ,  MSGLEN.  MSGBUF.,) 

I F <  .NOT. ISTATUS)  TYPE  •, 'ERROR  IN  CALL  TO  SGETMSG' 

TYPE  * , 'QIO  PARAMETER  STATUS MSGBUF 
MSBBUG* '  ' 

I STAT US *SYS SGETMSG  ( XVAL ( I OSB ( 1  )  ) ,  MSGLEN,  MSGBUF,,) 

TYPE  *,'I/0  STATUS: ' .MSGBUF 
GO  TO  2 

501  IST4*IAND( OUTPUT! 1 ) , '000010'O> 

I ST5"IAND( OUTPUT! 1 ), '000020'O) 

I ST6* IAND! OUTPUT! 1 ), '000040'O> 

IST7*IAND( OUTPUT! 1 ), '000100'O> 

I ST8* IAND! OUTPUT! I  ), '000200'O> 

IST9*IANDf OUTPUT! 1 ), -000400'O) 

I  ST  10* IAND! OUTPUT! 1 ), '001000'O> 

ISTU- IAND!  OUTPUT!  I  ),  '00 2000'O) 

I  ST  1  *  IAN0(OUTPUT! 1 ), ' 000002 ' 0 ) 

TYPE  *,' . STATUS  IS  AS  FOLLOWS . ’, 

1  ' . ' 

IF! IST1.NE.01TYPE*, 'SYNC' 

IF! IST4.NE.0JTYPE*, 'START  TIME  FOUND' 

IF! IST5.NE .0JTYPE*, 'STOP  TIME  FOUND' 

IF! IST6.NE.0)TYPE«, ’PLAYBACK  CYCLE  BEGAN' 

IF! I ST7 . NE .0 )TYPE* , 'STOPPED' 
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IF ( IST8.NE.0)TYPE*. 'PLAYBACK  INTERVAL' 
IF ( IST9.NE .«>TYPE«, 'SEARCHING' 

IF( IST10.NE .0 (TYPE* . ' POWER  OFF' 

IF< IST11.NE.0)TYPE*. 'REMOTE  SELECTED* 

C  WRITE<6.7)OUTPUT( 1 > 

7  FORMAT! IX, 06 > 

GO  TO  2 
END 
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CAVA. TAPE DRIVE  5 IOTEST 


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 

C  THIS  PROGRAM  IS  USED  TO  TEST  THE  ON  LINE  DIGITIZER  DR11-C  INTERFACE 

C  IN  CONJUNCTION  WITH  THE  ODDRIVER.  THE  MAINTENENCE  CABLE  MUST  BE  HOOKED 

C  UP  I 

C 

C  THE  OODRIVER  TRANSFERS  THE  WORD  IN  INPUT  TO  THE  OUTBUF  REGISTER  ON 

C  THE  DR11-C.  THE  ORIVER  THEN  SETS  CSR0  AND  THE  IEA  BITS.  THIS  WILL 

C  CAUSE  AN  INTERRUPT  AFTER  IPL  IS  LOWERED  BELOW  DEVICE  IPL.  AFTER 

C  THE  INTERRUPT  THE  INPUTBUF  IS  THE  COPIED  INTO  IOSB<3>  AND  IS  USED  IN 

C  THIS  PROGRAM  TO  COMPARE  TO  WHAT  WENT  INTO  THE  OUTBUF. 

C 

C  THIS  PROGRAM  TESTS  ALL  DATA  BITS  ON  THE  DR11-C  AND  THE  "A"  INTERRUPT 

C  HARDWARE. 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
EXTERNAL  IOSWRITEVBLK, IOSREAOVBLK 
INTEGER  SYSSASSIGN, S YSSQIOW, S YSSQ 1 0 
INTEGER  S YSSGETMSG 
INTEGERS  IOSB<  4  )  .MSGLEN 
I NTEGER*2  INPUT, OUTPUT 
CHARACTER  *80  MSGBUF 
ISTATUS-SYSSASSIGNI 'ODA0' , ITCHAN , , ) 

IF< .NOT. ISTATUSJTYPE  *,'  ERROR  IN  DR1I-C  CHANNEL  ASSIGN' 

INPUT-' 100000'O 

2  TYPE  *  ,  '  DR  1 1  ~C  BIT  TEST  STARTING . ' 

I  ISTATUS-SYSSQIOI XVAL! 1 >,XVALI ITCHAN ), XVAL ( XLOCI IOSWRITEVBLK) ) , 

1I0SB, , , 

I  INPUT , XVAL I  2  > , , , ,  ) 

IF ( I  STATUS  )  GO  TO  500 

TYPE  *,'  ERROR  IN  QIOW  CALL’ 

I  STATUS- S YSSGETMSG  < XVAL < I  STATUS  )  ,  MSGLEN,  MSGBUF,,) 

IF< .NOT. ISTATUS)  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG ' 

TYPE  * , ' QIO  PARAMETER  STATUS :', MSGBUF 

TYPE  *.'  IOSBI 1 )- ' , IOSBI 1 ) , '  IOSBI 2  )- ' , IOSB<  2  ) 

500  CONTINUE 

II  FORMAT  < IX ,06 , 2X , 06, 'CSR-' ,06,2X,06) 

C  I STATUS-S YSSGETMSG  ( XVAL ( IOSBI 1 >) ,  MSGLEN,  MSGBUF,,) 

C  IF( .NOT. ISTATUS )  TYPE  *, 'ERROR  IN  CALL  TO  SGETMSG' 

C  TYPE  * , ' Q I OW  IO-STATUS  RETURN :' .MSGBUF 

IF  < INPUT. NE . IOSBI 3) >THEN 


CAVA. TAPEDRIVE 3 IOTEST 


TYPE  ».*  INBUF  NOT  EQUAL  TO  OUTBUF ' 

VRITE<  6, 1 1 )IOSB( 1 >, IOSB<  2>,IOS8<3  >, IOSBI 4  > 
WRITE! 6, 12 )  INPUT. IOSB<3) 

12  FORMAT! IX, 'OUTPUT  WAS- ’ .06 , 5X INPUT  WAS-', 06) 

ENOIF 

INPUT-INPUT+1 

IF< INPUT. GE.32767ITHEN 

INPUT- ' 100000’O 

TYPE  * , ’ 0R1 1 -C  BIT  TEST  COMPLETED' 

GO  TO  2 
END  I  F 
GO  TO  1 
END 
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AVA  FRAME  BUFFER  I/O  DRIVER 


.TITLE  AVDRIVER  -  VAX/VMS  AVA  FRAME  BUFFER  INTERFACE  DRIVER 
.IDENT  'V* 3-0*1 1 


j  FACILITY: 

l  VAX/VMS  ON  LINE  DIGITIZER  AVA  FRAME  BUFFER 

!  ABSTRACT: 

;  This  module  contains  the  driver: 

:  Tables 

i  Controller  and  unit  Initialization  routines 

i  The  FDT  routine 

t  The  start  I/O  routine 

i  The  Interrupt  service  routine 

:  The  cancel  I/O  routine 

i  The  device  register  dump  routine 

i  AUTHOR: 

t  S.  Richard  F.  Sims  January  27,1983 

i  REVISION  HISTORY: 


■SBTTL  External  and  local  symbol  definitions 
External  symbols 


SCANOEF 

« 

Cancel  reason  codes 

SCRBDEF 

; 

Channel  request  block 

SDCOE F 

f 

Device  classes  and  types 

SDDBDEF 

i 

Device  data  block 

IDEVDEF 

• 

Device  characteristics 

SIDBDEF 

• 

Interrupt  data  block 

SIODEF 

; 

I/O  function  codes 

SIPLDEF 

t 

Hardware  IPL  definitions 

SIRPDEF 

; 

I/O  request  packet 

1U2 


AVA  FRAME  8UFFER  I/O  DRIVER 


SSSDEF 

SUCBDEF 

SVECOEF 

SUIBDEF 

SPCBDEF 

i 

i  Local  symbols 


i  System  status  codes 
i  Unit  control  block 
i  Interrupt  vector  block 
i  JOB  INFO  BLOCK  OFFSET  DEFS 
i  PROCESS  CONTROL  BLOCK  OFFSET  DEFS 


; 

,•  Argument  list  (AP)  offsets  for  device-dependent  QIO  parameters 


i 


PI 

■  0 

* 

First  QIO  parameter 

P2 

»  4 

• 

Second  QIO  parameter 

P3 

-  8 

t 

Third  QIO  parameter 

P4 

-  12 

1 

Fourth  QIO  parameter 

P6 

-  16 

« 

Fifth  QIO  parameter 

P6 

»  20 

5 

Sixth  QIO  parameter 

t  Other 

constants 

AVDEFBUFSIZ  -  1 

Default  buffer  size 

AVTIMEOUTSEC  »  5 

* 

10  second  device  timeout 

AVNUMREGS  •  3 

« 

Device  has  3  registers 

BUFOVRHD  -  12 

; 

SYSTEM  BUFFER  OVERHEAD  FOR  BUFFERED  I/O 

t 

i  Definitions  that  follow  the 

standard 

UCB  fields 

i 

SDEFINI  UCB 

. 

Start  of  UCB  definitions 

.-UCBSKLENGTH 

; 

Position  at  end  of  UCB 

SDEF 

UCBSVAVCSR 

.  BLKU 

1 

; 

UCB  Device  CSR  STORAGE 

SOEF 

UCBSUAVBYTCNT 

.  BLKW 

1 

Device's  BYTE  count  register 

SDEF 

UCBSWAVOUTBUF 

•  BLKW 

1 

DEVICE  OUTBUF  REGISTER 

SOEF 

UC8SUAVXAD0R 

•  BLKW 

1 

STARTING  X  ADDRESS  (P3> 

SOEF 

UCBSWAVYADDR 

•  BLKW 

I 

; 

STARTING  Y  ADDRESS  <P4) 

SDEF 

UCBSWAVACR 

•  BLKW 

1 

? 

INITIALIZE  ACCES  CONTROL  REGISTER  BITS 

SDEF 

UCBSKAVUCBLEN 

.BLKW 

1 

; 

Length  of  extended  UCB 

t  Bit  positions  for  device-dependent  status  field  In  UCB 

* 

SVIELD  UCBCSR.0 

,<- 

; 

Device  status 

KBITZERO, , M> , - 

; 

First  bit 

KBITONE , 

,M>.- 

; 

Second  bit 

> 

SDEFEND  UCB  ;  End  of  UCB  definitions 


l 

i 

! 


Device  register  offsets  from  CSR  address 

SDEFINI  AV  t  Start  of  status  definitions 
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SDEF  AVCSR  ; 

. BLKW  1 

l 

;  Bit  positions  for  device  control /status 


Control /status 


reg 1 ster 


VIEID  AVCSR, 0,<- 
<AVEN , ,  M> ,  - 
< I NTE  N0 , ,  M>  ,  - 
< I NTEN1 , ,M>,~ 
< I NTEN2 , ,M>,- 
< INTEN3 , ,M>,- 
<DMAEN, ,M>  ,  - 
<OTAG0, ,M> , - 
< I  TAG , ,  M> ,  - 
<WDR0, ,  M>  ,  - 
<WDR1 , ,  M>  ,  - 
CVDR2, ,  M>  ,  - 
<WDEN , ,  M>  ,  - 
COTAG1 , ,M>,- 
<  ,  3>  ,  - 

> 

SDEFEND  AV 

FSMCCSR- 


t  Control /status  register 

i  WHEN  UNASSERTED  INITIALIZES  AVA  HARDWARE 
i  ENABLES  AVA  INTERRUPT  0 
j  ENABLES  AVA  INTERRUPT  I 
i  ENABLES  AVA  INTERRUPT  2 
i  ENABLES  AVA  INTERRUPT  3 
;  ENABLES  AVA  UNIBUS  MASTERSHIP  REQUEST 
;  GENERAL  PURPOSE  SENSE  LINE 
;  GENERAL  PURPOSE  SENSE  LINE 
i  MEMORY  WINDOW  ID  BIT  0 
;  MEMORY  WINDOW  ID  BIT  1 
i  MEMORY  WINDOW  ID  BIT  2 

i  ENABLES  AVA  RESPONSE  TO  MEMORY  WINDOW  ACCESS 
j  GENERAL  PURPOSE  SOFTWARE  TAG 
i  RESERVED  FOR  FURTURE  USE 

i  End  of  device  register 
;  def 1 n It  1 ons . 

AVCSR-0000176  ;  FRAME  STORE  MEMORY  CONTROLLER  CSR  OFFSET 


. SBTTL 


CPUIOVFLAG- 

CPUIDATARD0- 

CP  U I DATARD 1  * 

CPUIFSTEST- 

CPUISEQSUB- 

CPU IMA  I  NT  * 

CPUIACR- 

CPUIYSTR- 

CPUIXSTR- 

CPUIYFENCE- 

CPUIXFENCE* 

CPUIYADDR- 

CPUIXADDR- 

CPUICOMP0- 

CP  U I  COMP  1 « 

CPUICOMP2- 

CPU ICOMP  3* 

CP  U I COMP 
CPU ICOMP5« 
CFUICOMP6- 
CPU  I  COMP  7 » 
Standard  tables 


AVCSR-O000072 
A VC SR -0000070 
AVCSR-0000066 
AVCSR -000006 4 
AVCSR -000006 2 
AVCSR-0000060 
A VC SR -0000056 
A  VC  SR - 000005 Z 
A VC SR -0000050 
AVCSR-0000046 
AVCSR -000004 4 
A VC SR -0000042 
AVCSR -0000040 
A VC SR -0000036 
AVCSR -000003 4 
AVCSR -000003 2 
AVCSR-0000030 
AVCSR-O0000Z6 
AVCSR -000002 4 
AVCSR -000002 2 
A VC SR -00000 20 


l 

i  Driver  prologue  table 


MAINTENANCE  REGISTER 
ACCESS  CONTROL  REGISTER 


DP  TAB 

END-AVEND.- 

ADAPTER-UBA,- 

UCBS IZE«<UCBSKAVUCBLEN> , - 

NAME-AVORIVER 


t  DPT-creatton  macro 
i  End  of  driver  label 
;  Adapter  type 
i  Length  of  UCB 
s  Driver  name 


AVA  FRAME  BUFFER  I/O  DRIVER 


OPTSTORE  INIT  i  Start  of  load 

t  initialization  table 

DPTSTORE  UCB.UCBSBFIPL.B.8  !  Device  fork  I  PL 

OPTSTORE  UCB.UCBSBDIPt.8,22  i  Device  Interrupt  IPL«22»BR6 

DPTSTORE  UCB , UCBSLDEVCHAR ,  L  ,  <  -  i  Device  characteristics 
OEVSMIDVI-  i  Input  device 

DEVSMAVL I- 

DE  VSMODV >  ;  output  device 

DPTSTORE  UCB , UCBSBOEVCLASS , B , DCSSCOM  ;  Device  class? 

DPTSTORE  UCB.UCBSBDEVTYPE.B.DTSDRllC  DEVICE  TYPE  (NOT  REALLY) 

DPTSTORE  UCB , UCBSWOE VBUF  S I Z  .  W ,  -  i  Default  buffer  size 
AVDEFBUFSIZ 

DPTSTORE  RE  I N IT  :  Start  of  reload 


DPTSTORE  DDB.DDBSLDDT.D.AVSDDT  s 
DPTSTORE  CRB. CRB SL I NTD*4 , 0 ,  - 
AVINTERRUPT 
DPTSTORE  CRB.- 

CRBSL INTD+VECSL INITIAL. - 
D . AVCONTROL INIT 
DPTSTORE  CRB , - 

CRB SL INTO* VECSLUNITINIT,- 
0 , AVUNI TI N IT 
DPTSTORE  END 


;  Initialization  table 
Address  of  DDT 

i  Address  of  Interrupt 
;  service  routine 
i  Address  of  controller 
;  initialization  routine 


;  Address  of  device 
:  unit  Initialization 
;  routine 

s  End  of  Initialization 
i  tables 


i  Driver  dispatch  table 
DOTAB 

DEVNAM-AV.- 
START-AVSTART.- 
FUNCTB-AVFUNCTABLE 
CANCEL-AVCANCEL 
REGDMP "AVREGOUMP 
I 

i  Function  decision  table 

AVFUNCTABLE: 

FUNCTAB  ' 

<READVBLK,- 
REAOLBLK , - 
READP  BLK , - 
URITEVBLK.- 
VR ITELBLK , - 
URITEPBLK> 

FUNCTAB 

<READVBLK, - 
READLBLK, - 
READPBLK,- 
URITEVBLK, - 
WR ITELBLK , - 
WRITEPBLO 
FUNCTAB  AVAFOT , - 

<READVBLK , - 
READLBLK, - 


!  DDT-creatlon  macro 
i  Name  of  device 
<  Start  I/O  routine 

{  FDT  address 
i  Cancel  I/O  routine 
i  Register  dump  routine 


;  FDT  for  driver 
;  Valid  I/O  functions 
i  Read  virtual 
i  Read  logical 
i  Read  physical 
i  Write  virtual 
;  Write  logical 
;  Write  physical 
;  Buffered  functions 
s  Read  virtual 
;  Read  logical 
i  Read  physical 
i  Write  virtual 
i  Write  logical 
;  Write  physical 

s  Read  virtual 
i  Read  logical 
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READPBLK , - 
WRITEVBLK , - 
WRI7ELBLK , - 
WRITEPBLIO 

FUNCTAB  AVWRITEAVACFDT , - 
<WRIT£VBLK,  - 
WRITELBLK, - 
WRITEPBLIO 

FUNCTAB  AVREADAVACFDT,- 
<READVBLK . - 
READLBLK,- 
READPBLK  > 

.LONG  -l 
•LONG  -1 

.ADDRESS  OOPS 

. SBTTL  AVCONTROLINIT.  Control 

AVCONTROLINIT,  Readies  controller  for 

Functional  description: 

The  operating  system  calls  this 


i  Read  physical 
;  Write  virtual 
i  Write  logical 
:  Write  physical 

i  Write  virtual 
i  Write  logical 
i  Write  physical 

i  Read  virtual 
i  Read  logical 
;  Read  physical 
i  SET  ALL  BITS  FOR  THE 
i  FDT  CATCH  ALL  ERROR  ROUTINE 

er  Initialization  routine 

I/O  operations 


routine  In  3  places: 


at  system  startup 

during  driver  loading  and  reloading 
during  recovery  from  a  power  failure 

Inputs: 

R4  -  address  of  the  CSR  (controller  status  register) 

R5  -  address  of  the  IDB  (Interrupt  data  block) 

R6  -  address  of  the  DDB  (device  data  block) 

R8  -  address  of  the  CRB  (channel  reguest  block) 

Outputs: 


The  routine  must  preserve  all  registers  except  R0-R3. 


AVCONTROLINIT:  :  In  It  1 al 1 ze  control  1 er 

RS8  j  Return 

.SBTTL  AVUNITINIT,  Unit  Initialization  routine 

i  AVUNITINIT,  Readies  unit  for  I/O  operations 

l 

i  Functional  description: 

i 

i  The  operating  system  calls  this  routine  after  calling  the 

i  controller  Initialization  routine: 


at  system  startup 

during  driver  loading 

during  recovery  from  a  power  failure 

Inputs: 


1*»6 
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R4  -  address  of  ths  CSR  (controller  status  register) 

RS  -  address  of  the  UCB  (unit  control  block) 


Outputs : 


The  routine  must  preserve  all  registers  except  R0-R3. 


AVUNITINIT: 

BI5W 

CLRW 
MOVW 
RSB 
. SBTTL 

!♦  + 

i  AVFDTROUTINE , 


UC BIMONLINE, 
UCBSWSTS(R5> 
AVCSR(R4) 

1 ,AVCSR( R4  ) 

AVFDTROUTINE. 


i  Initialize  unit 

;  Set  unit  online 
i  INITIALIZE  AVA  FRAME  BUFFER 
!  SET  »INIT  BIT  IN  CSR 
i  Return 

ON  LINE  DIGITIZER  AVA  FDT  routine 


ON  LINE  DIGITIZER  AVA  FDT  routine 


Functional  description: 

SET  UP  FOR  BUFFERED  10  ON  THE  AVA  INTERFACE 


i  Inputs: 

:  KB -9.2 

i  R3 

:  R4 

:  RS 

:  R6 

i  R7 

i  R8 

i  R9-R11 

s'  AP 

i  Outputs: 


scratch  registers 

address  of  the  IRP  (I/O  request  packet) 
address  of  the  PCB  (process  control  block) 
address  of  the  UCB  (unit  control  block) 
address  of  the  CCB  (channel  control  block) 
bit  number  of  the  I/O  function  code 
address  of  the  FDT  table  entry  for  this  routine 
scratch  registers 

address  of  the  1st  function  dependent  QIO  parameter 


The  routine  must  preserve  all  registers  except  R0-R2,  and 
R9-R11  . 


CATCH  ALL  FDT  ERROR  ROUTINE 


OOPS: 

MOVL 

SSSILL IOFUNC ,R0 

OSB 

GEXESABORTIO 

AVAFDT : 

MOVW 

P3(  AP  > , UCBSWAVXADDRt R5  ) 

MOVW 

P4(  AP ) , UCBSWAVYADOR( RS  > 

MOVW 

P5( AP ) ,UCBSWAVCSR( R5  > 

MOVW 

P6( AP ) , UCBSWAVACRf R5 ) 

RSB 

AWRITEAVACFDT: 

l  WRITE 

MOVQ 

PKAP  )  ,R0 

I  ILLEGAL  I/O  FUNCTION  SPECIFIED 
SO  LET'S  ABORT 

STARTING  X  ADDRESS 
STARTING  Y  ADDRESS 

i  INITIALIZE  ACCES  CONTROL  REGISTER  BITS 
I  SET  UP  ACR 

FDT  routine 

l  MOVE  BUFFER  ADDRESS  IN  R0 
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IS: 

: 

i 


1  IS: 
ltfS: 


TSTl 

BGTR 

MOVL 

JMP 

JSB 

MOVL 

JMP 

PUSHR 

JSB 

POPR 

BLBS 

JMP 

PUSHR 

MOVL 

ADDL2 

JSB 

POPR 

BLBC 

ADDL3 

MOVL 

MOVL 

MOVL 

SUBL 

PUSHR 

MOVC3 

POPR 

MOW 


JMP 

AVREAOAVACF DT : 


R 1 
IS 


;  AND  BUFFER  SIZE  IN  R1 
:  IF  BUFFER  SIZE  <-tf  WE  HAVE  PROBLEMS 
:  OTHERWIZE  LETS  GET  ON  WITH  IT 


51S: 


51  IS: 
5  IBS : 


SSSI VBUFLEN ,  RIF  :  MOVE  THE  ERROR  STATUS  INTO  Rtf 


GEXESF INISHIO 
GEXESWRITECHK 

SSSNOACNT, Rtf 
GEXESF INISHIO 
M<R2,R3> 
6EXEIBUFFRQU0TA 
M<R2,R3> 

GEXESABORTIO 

M<R3> 

R1  ,R9 
12.  R1 

GEXE  SALLOCBUF 
M<  R3> 

Rtf.  US 
R2.  12. (R2) 

R2 , IRPSLSVAPTE  (  R3 ) 
P1(AP  > . 4 <  R 2  > 


IT 


PCBSLJIBCR4 ), Rtf 


R9 , J I BSLBYTCNT! Rtf ) 
M<  R  I  ,R2,R3,R4,R5> 
P2(AP  ),94(R2>,»<R2> 
M<R1 ,R2.R3.R4,R5> 
R9 , I RPSWBOFF  (  R3 ) 

GEXESQIOORVPKT 


:  BAD  BUFFER  SIZE 
l  ABORTS  AND  DOESN'T  COME  BACK  IF 
i  CAN'T  WRITE  TO  BUFFER 
.  .only  FOR  ERROR  CHECKING**** 

.  *ONLY  FOR  ERROR  CHECKING**** 

:  SAVE  R2  AND  R3  FROM  BUFF RQUOTA 
CHECK  TO  SEE  IF  QUOTA  CAN  HANDLE  THIS 
:  RESTORE  R2  AND  R3 
;  IF  ERROR  WE  EXCEEDED  QUOTA 

l  GO  TELL  HIM  ABOUT  THE  ERROR  AND  DON'T  COME  BACK 
i  SAVE  IRP  ADDRESS  FROM  ALLOCBUF 
;  SAVE  BUFFER  SIZE  IN  R9  JUST  FOR  GRINS 
:  SAVE  BUFFER  SIZE  TO  CHARGE  PROCESS 
;  ALLOCATE  SOME  NON-PAGED  POOL  FOR  THIS 
;  RESTORE  IRP  ADDRESS  TO  R3 
;  IF  ERROR  INSUFFICIENT  MEMORY  AVAILABLE 
i  IN1T  FIRST  LONGWORD  OF  BUFFER  WITH 
ADDRESS  OF  DATA  AREA 
PUT  ADDRESS  OF  SYSTEM  BUFFER 
INIT  SECOND  LONGWORD  WITH  USER  BUFFER 
ADDRESS 
JET  JIB  ADDRESS 


l  CHARGE  PROCESS  FOR  BUFFER  SPACE  USED 
1  SAVE  ALL  THESE  FOR  THE  MOVC 
i  MOVE  USER  BUFFER  INTO  SYSTEM  BUFFER 
i  RESTORE  THESE  NOW  AFTER  MOVC 
:  NUMBER  OF  BYTES  CHARGED  AGAINST 
:  USER'S  PROCESS  QUOTA 
:  NOW  GO  QUEUE  I/O  REQUEST  PACKET 
1  READ  FDT  routine 


SUBW2 

IOSREADLBLK-IOSREADPBLK , 

;  SET  I/O  FUNCTION  CODE  IN  IRP 

I RP SWF UNC( R3  > 

MOVQ 

P 1 <  AP ) . Rtf 

1 

MOVE  BUFFER  ADDRESS  IN  Rtf 

AND  BUFFER  SIZE  IN  R1 

TSTL 

R1 

i 

IF  BUFFER  SIZE  < -tf  WE  HAVE  PROBLEMS 

BGTR 

5 1 S 

; 

OTHERWIZE  LETS  GET  ON  WITH  IT 

JMP 

GEXESF INISHIO 

; 

BAO  BUFFER  SIZE 

JSB 

GEXESREADCH 

1 

; 

ABORTS  AND  DOESN'T  COME  BACK  IF  IT 

CAN'T  WRITE  TO  BUFFER 

PUSHR 

M<  Rtf , R3  > 

; 

SAVE  Rtf  AND  R3  FROM  BUFFRQUOTA 

ADDL2 

12. R1 

JSB 

GEXESBUFF RQUOTA  : 

CHECK  TO  SEE  IF  QUOTA  CAN  HANDLE  THIS 

BLBS 

Rtf ,51tfS 

1 

IF  ERROR  WE  EXCEEDED  QUOTA 

JMP 

GEXESABORTIO 

; 

GO  TELL  HIM  ABOUT  THE  ERROR  AND  DON'T  COME 

JSB 

GEXESALLOCBUF 

» 

ALLOCATE  SOME  NON-PAGED  POOL  FOR  THIS 

BLBC 

Rtf, 51  IS 

l 

IF  ERROR  INSUFFICIENT  MEMORY  AVAILABLE 

POPR 

M<Rtf ,R3> 

( 

RESTORE  Rtf  AND  R3 

MOVL 

R2. IRPSLSVAPTE! R3 

)  1 

PUT  ADDRESS  OF  SYSTEM  BUFFER 

MOVW 

R1 . IRPSWBOFF ( R3 ) 

; 

BYTE  QUOTA  CHARGED 

PUSHL 

Rtf 

MOVL 

PCBSL J I B! R4 ) , Rtf  : 

JET  JIB 

ADDRESS 

1U8 
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SUBL  R1,JISSLBYTCNT(R0)  l  CHARGE  PROCESS  FOR  BUFFER  SPACE  USED 

POPL  R0 

MOVAB  12( R2  ) , ( R2  )♦  ;  SAVE  DATA  AREA  ADDRESS 

MOVL  R0,(R2)  ;  SAVE  USER  BUFFER  ADDRESS 

JMP  GEXESQIODRVPKT  i  NOW  GO  QUEUE  I/O  REQUEST  PACKET 

. S3TTL  AVSTART,  Start  I/O  routine 

AVSTART  -  Start  a  transmit,  receive  data  from  or  to  AVA  INTERFACE 

Functional  description: 

START  A  READ  OR  WRITE  TO  ON  LINE  DIGITIZER  AVA  INTERFACE 
Inputs: 

R3  -  address  of  the  IRP  (I/O  request  packet) 

R5  -  address  of  the  UCB  (unit  control  block) 

Outputs : 

R0  -  1st  longworAd  of  I/O  status:  contains  status  code  and 

number  of  bytes  transferred 

R1  -  2nd  longword  of  I/O  status:  device-dependent 

The  routine  must  preserve  all  registers  except  R0-R2  and  R4. 


AVSTART:  s  Process  an  I/O  packet 

DSBINT  UCBSBD I  PL ( R5  )  i  DISABLE  INTERRUPTS 

A0DL2  8UFOVRHD , UCBSL SVAPTE ( R5 ) i  SKIP  SVS  BUF  HEADER 

REQPCHAN  i  PUTS  CSR  ADDRESS  IN  R4 

MOVZWL  UCBSWBCNT ( R5 ) , R 1 

ASHL  -1.R1.R1 

MOVW  R 1 , UCBSWAVB YTC NT ( R5 ) 

l  MOVW  UCBSWBCNT! R5 1 , UCBSWAVB YTCNT( RS 1 i  MOVE  BYTE  COUNT  TO 

!  NEW  UCB  FIELD 

j  CLRW  UCBSWBCNT(RS)  ;  CLEAR  UCB  BYTE  COUNT 

l  MOVW  P5(AP).UCBSWAVCSR(R5)  :  INITIALIZE  ACCES  CONTROL  REGISTER  BITS 

MOVZWL  UCBSWAVCSR(R5),R1 

l  BLBS  RI.NOINIT 

BLBS  R 1 , CHECKSSW 

MOVW  UCBSWAVCSR! R5 I ,AVCSR( R4 ) 

i  MOVW  1 , AVCSRf R4 ) 

BISW3  UCBSWAVCSR(RS),  1,AVCSR(R4) 

MOVW  0 , CPU  I MAI  NT ( R4 1 

MOVW  01776, CPUIXFENCE(R4> 

MOVW  0777,CPUIYFENCE(R4) 

;  MOVW  0000035, CPUIACRI R4 > 

1  MOVW  P6(AP ),UCBSWAVACR(R5)  1  SET  UP  ACR 

MOVW  UCBSWAVACR! R5 ) , CPU  I ACR( R4 ) 

MOVW  UCBSWAVXADDRf  R5 ) , CP U I XADDR ( R4 ) 

MOVW  UCBSWAVYADOR! R5 ) ,CPUIYADOR< R4 ) 

CHECKSSW: 

BITW  04000, UCBSWAVCSRI R5 )  (TEST  FOR  MEMORY  WINDOW  ENABLE 

BEQL  NO  I N IT 
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MOVW  UCBSWAVCSR! R5  )  ,AVCSR( R4  ) 

I 

i  WE  HAVE  A  REQUEST  TO  CHECK  THE  AVA  SPECIAL  STATUS  WORD 

SSW: 

MOVL 
SET  I  PL 

<  BBCC 


WAITSPREAO : 

MOVW 
MOVW 
ENBINT 
l 

t  THIS  MOVW  READS  FROM  THE  OVERLAY  COMPONENT  WHICH  WE  REALLY  DON'T 

,  HAVE  AND  SINCE  BIT  11  IS  SET  IN  THE  AVA  CSR  MBA16  IS  SET  WHICH 

i  PUTS  THE  SPECIAL  AVA  STATUS  ON  THE  MASTER  BUS  DATA  BUS 

BRW  FINISH 

NOINIT : 

t  MOVW  P3( AP ) , UCBSWAVXADDR! R5 )  s  STARTING  X  ADDRESS 

l  MOVW  P4< AP } , UCBSWAVYADDR ( R5 )  i  STARTING  Y  ADDRESS 

i 

MOVW  UCBSWAVXADOR<  R5 ) ,CPUIXADDR< R4 ) 

MOVW  UCBSWAVYADDR! RS  > ,CPUI YADDR! R4 1 

l  EN3INT 

CMPZV  IRPSVFCODE,  IRPSSFCODE,- 
I RP SWF UNC ( R3  ) ,  IOSREADPBLK 

BEQL  READD  ;  WANT  TO  GO  READ  AVA 


•IRPSLSVAPTE! R3  ) , UCBSLSVAPTE ( RS  )  »  GET  BUFFER  ADDRESS 

IPLSPOWER  l  CHECK  FOR  POWER  FAIL 

UCBSVPOWER , - 
UCBSWSTS! R5 ) 

WAITSPREAD 

CPUICOMP3(R4) , 9 UCBSLSVAPTE <  RS  )  i  READ  INPUT  DATA  REGISTER 
1 , AVCSR! R4 ) 


i  DSBINT 

WRITE: 

>  MOVW 

MOVW 
j  MOVW 

I  SETIPL 

1  BBCC 


i  ENBINT 

1  RELCHAN 

I  MOVZVL  SSSPOWERFAIL , R8 

I  REQCOM 

WAITWRITE: 

i  WFIKPCH  AVTIMEOUT,  AVTIMEOUTSEC 

; i  I NCL  UCBSWBCNT! R5 )  t  INCREMENT  NUMBER  OF  WORDS  TRANSFERED 

1  MOVW  AVOUTBUF ( R4  > , UC8SWAV0UTBUF ( R5  > :  DEVICE  OUTPUT  REGISTER 

l  MOVW  AVA74( R4 ) , UCBSWAVCSRt R5 )  ;  PUT  THE  CSR  IN  IOSB  STATUS  WORD 

l  IOFORK 

i  I NCL  UCBSLSVAPTE! R5  )  :  INCREMENT  SYSTEM  DATA  AREA  ADDRESS 

i  I NCL  UCBSLSVAPTE! R5> 

AD0L2  2 , UCBSLSVAPTE ! R5  > 

tl  DECW  UCBSWAVBYTCNT! R5 )  l  DECREMENT  BYTE  COUNT  TO  SEE  IF  DONE 

DECW  UCBSWAVBYTCNT! R5)  l  DECREMENT  BYTE  COUNT  TO  SEE  IF  DONE 

l  SUBL2  2. UCBSWAVBYTCNT! R5) 


UCBSBDIPL! R5 )  l  DISABLE  INTERRUPTS 

9UCBSLSVAPTE! R5 ) , A VC SR! R4 )  l  CSR  BIT  TESTING . 

9 UCBSLSVAPTE!  RS  )  ,  CPUICOMPB’!  R4  ) 

AVCSR! R4 ) , UCBSWAVCSR! R5 )  i  PUT  THE  CSR  IN  IOSB  STATUS  WORD 
IPLSPOWER  :  CHECK  FOR  POWER  FAIL 

UCBSVPOWER . - 
UCBSWSTS ! R5>,~ 

WAITWRITE 
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BGTR  WRITE 
ENBINT 

FINISH:  RELCHAN 


: 

;  After  a  transfer  completes  successfully,  return  the  number  of  bytes 
i  transferred  and  a  success  status  code. 


: 


: 

i 

5 

t 

* 


I NSV  UCBSWBCNKR5),  16,- 

16,  RET 

MOVW  SSSNORMAL , R0 

I NSV  UCBSWAVOUTBUF ( R5 ) ,  16.- 

16,  R1 

INSV  0,  16,  16, R1 

MOVW  UCBSWAVCSRI R5  ) , R1  :  PUT 

MOVW  UCBSWAVOUTBUF ( R5 ) , R 1 

MOVW  0 , R 1 


i  Load  number  of  bytes  trans- 
:  ferred  Into  high  word  of  R0. 
;  Load  a  success  code  Into  R0. 
iLOAD  OUTBUF  IN  IOSB( 4  ) 

.•  CLEAR  UPPER  WORD.  IOSB(4) 

THE  IN6JF  IN  IOSB  STATUS  WORD 


t 

:  Call  I/O  postprocessing, 
t 

COMPLETE  10: 

REQCOM 


l  Driver  processing  Is  finished, 
i  Complete  I/O. 


: 

:  READ  LOOP 


READD: 

l 


READ: 

: 

: 


MOVL  0IRPSLSVAPTE <  R3 ) , UCBSLSVAPTE ( R5  >  I  GET  BUFFER  ADDRESS 

DSBINT  UCBSBD I  PL ( R5 )  i  DISABLE  INTERRUPTS 

SETIPL  I PLSPOWER  i  CHECK  FOR  POWER  FAIL 

BBCC  UCBSVPOWER , - 
UC3SWSTS! R5  > , - 
READ 

WFIKPCH  AVTIMEOUT,  AVTIMEOUTSEC 

MOVW  AV INBUF!R4),0UCBSL  SVAPTE ( R5  >  t  READ  INPUT  DATA  REGISTER 

MOVW  CPUICOMP0! R4 ) .JUCBSL SVAPTE ( R5  > :  READ  INPUT  DATA  REGISTER 


1 

l  After  a  transfer  completes  successfully,  return  the  number  of  bytes 
!  transferred  and  a  success  status  code. 


: 

:  i 
: 

: 


t 

: 


;  i 
i 


INCL  UCBSWBCNT ( R5 )  ;  INCREMENT  NUMBER  OF  WORDS  TRANSFEREO 

MOVW  AV INBUF(R4), UCBSWAVCSRI R5 )  s  PUT  THE  INBUF  IN  IOSB  STATUS  WORD 

MOVW  AV0UTBUFIR4). UCBSWAVOUTBUF (R5>)  DEVICE  OUTPUT  REGISTER 

IOFORK 

INCL  UCBSLSVAPTE! R5  )  !  INCREMENT  SYSTEM  DATA  AREA  ADDRESS 
INCL  UCBSLSVAPTE! R5  )  ;  INCREMENT  SYSTEM  DATA  AREA  ADDRESS 
ADDL2  2. UCBSLSVAPTE! R5 ) 

DECW  UCBSWAVBYTCNT! RS )  :  DECREMENT  BYTE  COUNT  TO  SEE  IF  DONE 

DECW  UCBSWAVBYTCNT! R5 >  :  DECREMENT  BYTE  COUNT  TO  SEE  IF  DONE 

SUBL2  2 . UCBSWAVBYTCNT! R5 ) 

BGTR  READ 

ENBINT 

BRW  FINISH 


: 

:  Device  timeout  handling.  Return  an  error  status  code. 
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AVTIMEOUT: 

I  BICW2 

t  MOVW 

SETIPL 
MOVZWL 
t  MOV  l 

i  MOVW 

MOVW 
;  INSV 

f 

BRW 
. SBTTL 

j  ♦♦ 

s  AVINTERRUPT. 


t  Timeout  handling 

<AVCSRMCSR0>,AVCSR(R4>i  SET  CONTROL  LINE  0  LOW 
0  AVCSR( R4 ) 

UCBSBF I P  L  < R5  )  ;  Lower  to  driver  fork  IPL 

SSST IMEOUT , R0  j  Raturn  arror  status. 

63, RI  i  . .  STATUS  TESTING. . 

AVCSR< R4 ) , UCBSWAVCSRI R5 )  i  PUT  THE  CSR  IN  IOSB  STATUS  WORD 
UCBSWAVCSR(R5),R1  t  PUT  THE  CSR  IN  IOSB  STATUS  WORD 
UCBSWAVOUTBUF ( R5  > ,  16,-  i LOAD  OUTBUF  IN  IOSB(4> 

16.  Rl 

COMPLETEIO  t  Call  I/O  postprocass 1 ng . 

AVINTERRUPT,  Interrupt  service  routine 

Analyzes  Interrupts,  processes  solicited  Interrupts 


Functional  description: 


The  sample  code  assumes  either 


that  the  driver  Is  for  a  single-unit  controller,  and 
that  the  unit  Initialization  code  has  stored  the 
address  of  the  UCB  In  the  1 0 B  t  or 

that  the  driver's  start  I/O  routine  acquired  the 
controller's  channel  with  a  REOPCHANL  macro  call,  and 
then  Invoked  the  WFIKPCH  macro  to  keep  the  channel 
while  watting  for  an  Interrupt. 

Inputs: 


0<SP  ) 

” 

pointer  to  the  address  of 
block ) 

the  IDB  ( Interrupt  data 

4<SP  ) 

- 

saved  R0 

8<SP  ) 

- 

saved  Rl 

121 SP  ) 

- 

saved  R2 

161SP) 

- 

saved  R3 

20 ( SP  ) 

- 

saved  R4 

24<  SP  ) 

- 

saved  R5 

28( SP  ) 

- 

saved  PSL  (program  status 

longword ) 

321 SP) 

“ 

saved  PC 

i  The  IDB  contains  the  CSR  address  and  the  UCB  address, 

i 

i  Outputs: 

i 

I  The  routine  must  preserve  all  registers  except  R0-R5. 

I 

AVINTERRUPT: 

MOVL 

MOVL 


i  Service  device  Interrupt 

•<SP)*,R4  i  Get  address  of  IDB  and  remove 

i  pointer  from  stack. 

IDBSL0WNER1 R4 ) , R5  l  Get  address  of  device  owner's 

;  UCB. 

IDBSLCSRI R4 ) , R4  i  Get  address  of  device's  CSR. 


MOVL 
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t  BICW2  <AVCSRMCSR0>,AVCSR(R4>|  SET  CONTROL  LINE  0  LOW 

BBCC  UCB5VINT,-  ;  If  device  does  not  expect 

UCBIWSTSI RS ) , -  t  Interrupt,  dismiss  It. 

UNSOL  INTERRUPT 
l 

;  This  Is  a  solicited  Interrupt.  Save 

1  the  contents  of  the  device  registers  In  the  UCB.  NOT  NEEDED  IN  THIS  DRIVER 


Restore  control  to  the  main  driver. 


RESTOREORIVER: 

MOVL  UCBSLFR31 RS  )  ,R3  t 

JSB  9UCBSLFPC1 RS  ) 


;  Jump  to  main  driver  code. 
Restore  driver's  R3  (use  a 

i  MOVQ  to  restore  R3-R4  )  . 
i  Call  driver  at  Interrupt 
;  wait  address. 


i  Dismiss  the  Interrupt. 

i 

UNSOL  I NTERRUPT :  l  Dismiss  unsolicited  Interrupt. 

POPR  M<R0,R1,R2,R3,R4,R5>  i  Restore  R0-R5 
RE  I  t  Return  from  Interrupt. 

. SBTTL  AVCANCEL.  Cancel  I/O  routine 

•  +  + 

i  AVCANCEL,  Cancels  an  I/O  operation  (n  progress 

i 

i  Functional  descriptions 


This  routine  calls  IOCSCANCELIO  to  set  the  cancel  bit  In  the 
UCB  status  word  If! 

the  device  Is  busy, 

the  IRP's  process  ID  matches  the  cancel  process  ID, 
the  IRP  channel  matches  the  cancel  channel. 


If  IOCSCANCELIO  sets  the  cancel  bit,  then  this  driver  routine 
does  device-dependent  cancel  I/O  fixups. 


1 

; 

i 

i 

I nputs : 

R2 

-  channel  Index  number 

j 

R3 

-  address  of  the  current  IRP  <1/0  request  packet) 

t 

R4 

-  address  of  the  PCB 

(process  control  block)  for 

the 

• 

t 

R5 

process  canceling 
-  address  of  the  UCB 

I/O 

(unit  control  block) 

; 

R8 

-  cancel  reason  code 

,  one  of: 

CANSCCANCEL 

If  called  through  SCANCEL 

or 

X 

CANSCDASSGN 

SDALLOC  system  service 

If  called  through  SDASSGN 

system 

These  reason  codes 

service 

are  defined  by  the  SCANDEF  macro. 

i 


Outputs : 

The  routine  must  preserve  all  registers  except  R0-R3. 


AVA  FRAME  BUFFER  I/O  DRIVER 


set  the  UCBSMCANCEL  bit  In  UCBSWSTS. 


I 

i  The  routine  may 

! 

1  — 

AVCANCEL : 

JSB  GIOCSCANCEL 10 
BBC  UCBSVCANCEL , - 

UCBSVSTS(R5).10S 


Device-dependent  cancel  operations 


t  Cancel  an  I/O  operation 
i  Set  cancel  bit  If  appropriate 
;  If  the  cancel  bit  Is  not  set, 
i  just  return. 

go  next. 


Finally,  the  return. 

0S: 

RSB  ;  Return 

.SBTTL  AVREGDUMP,  Device  register  dump  routine 

+♦ 

AVREGOUMP,  Dumps  the  contents  of  device  registers  to  a  buffer 
Functional  description: 

Writes  the  number  of  device  registers,  and  their  current 
contents  Into  a  diagnostic  or  error  buffer. 

Inputs : 

R0  -  address  of  the  output  buffer 

R4  -  address  of  the  CSR  (controller  status  register) 

R5  -  address  of  the  UCB  (unit  control  block) 

Outputs: 

The  routine  must  preserve  all  registers  except  RI-R3. 

The  output  buffer  contains  the  current  contents  of  the  device 
registers.  R 0  contains  the  address  of  the  next  empty  longword  1 
the  output  buffer. 


AVREGDUMP: 

MOVZBl  AVNUMREGS, (R0)* 

MOVZWl  UCBSWAVBVTCNT( R5  )  ,- 
( R0  )♦ 

RSB 

.SBTTL  AVEND,  End  of  driver 

1  ♦+ 

t  Label  that  marks  the  end  of  the  driver 

i  — 

AVEND: 


Dump  device  registers 
Store  device  register  count. 
Store  BYTE  count  register. 

Return 


Last  location  in  driver 


.END 


APPENDIX  AJ 


ON  LINE  DIGITIZER  TAPE  CONTROLLER  DRIVER 


.TITLE  OODRIVER  -  VAX/VMS  ON  LINE  DIGITIZER  TAPE  CONTROLLER  DRIVER  (DR11-C) 
.IDENT  ' V03-001 1 


FACILITY: 

VAX/VMS  On  Lin®  Digitizer  Tap®  controller  driver  (DR11-C) 
ABSTRACT: 

This  module  contains  the  driver: 

Tables 

Controller  and  unit  In  1 1 la  1 1 zat Ion  routines 

The  FDT  routine 

The  start  I/O  routine 

The  Interrupt  service  routine 

The  cancel  I/O  routine 

The  device  register  dump  routine 

AUTHOR: 

S.  Richard  F.  Sims  Aug.  Z3,  1982 
REVISION  HISTORY: 


.SBTTL  External  and  local  symbol  definitions 
External  symbols 


SCANDEF 

t 

Cancel  reason  codes 

SCRBDEF 

1 

Channel  request  block 

SDCDEF 

s 

Device  classes  and  types 

SDDBDEF 

; 

Device  data  block 

SDEVDEF 

i 

Device  characteristics 

SIDBDEF 

\ 

Interrupt  data  block 

SIODEF 

; 

I/O  function  codes 

SIPLDEF 

» 

Hardware  IPL  definitions 

SIRPDEF 

5 

I/O  request  packet 
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SSSDEF 

x 

System  status  codes 

SUCBDEF 

X 

Unit  control  block 

SVECDEF 

; 

Interrupt  vector  block 

SJIBDEF 

S 

JOB  INFO  BLOCK  OFFSET  DEFS 

SPCBDEF 

x 

PROCESS  CONTROL  BLOCK  OFFSET  DEFS 

1 

t  Local 
; 

symbols 

i 

I  Argument  1 1 st 

(API  offsets 

for  device-dependent  QIO  parameters 

pi 

-  0 

X 

First  QIO  parameter 

P2 

•  4 

; 

Second  QIO  parameter 

P3 

-  a 

* 

Third  QIO  parameter 

P4 

-  12 

; 

Fourth  QIO  parameter 

P5 

•  16 

* 

Fifth  QIO  parameter 

P6 

-  20 

♦ 

Sixth  QIO  parameter 

i  Other 

constants 

ODDEFBUFSIZ 

■ 

1 

X 

Default  buffer  size 

ODTIMEOUTSEC 

■ 

10 

X 

10  second  device  timeout 

ODNUMREGS 

3 

3 

X 

Device  has  3  registers 

BUFOVRHD 

m 

12 

• 

SVSTEM  BUFFER  OVERHEAD  FOR  BUFFERED  I/O 

i 

i  Definitions  that  follow  the  standard  UCB  fields 


SDEF 

SDEF 

SDEF 

SDEF 

! 

t  Bit 

t 


l 

i  Dev 
i 

SDEF 

i 

i  Bit  positions  for  devtce  control /status  register 
> 

VIELD  ODCSR,0,<-  t  Control /status  register 


SDEF INI  UCB 

* 

Start  of  UCB  definitions 

.-UCBSKLENGTH 

; 

Position  at  end  of  UCB 

UC8SWODCSR 

.  BLKV 

1 

X 

Device's  CSR  register 

UCBSWODB VTCNT 

.  BLKW 

1 

t 

Device’s  BYTE  count  register 

UCBSWODOUTBUF 

•  BLKV 

1 

i 

DEVICE  OUTBUF  REGISTER 

UCBSKODUCBLEN 

.BLKW 

1 

X 

Length  of  extended  UCB 

positions  for  device-dependent  status  field  In  UCB 


SVIELD  UCBCSR ,0 , <- 

<B I TZCRO , ,  M>  ,  - 
<BITONE , ,M>,- 

> 

SDEFEND  UCB 


;  Device  status 
i  F 1 rst  b 1 t 
;  Second  bit 


i  End  of  UCB  definitions 
Ice  register  offsets  from  CSR  address 


SOEFINI  OD 
ODCSR 


.  BLKV 


i  Start  of  status  definitions 
l  Control /status 
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t 


l 

SDEP 

SOEF 


<CSR«, ,  M> ,  - 
<CSR 1 , ,M>.- 
<  ,  3  >  ,  - 
< I EB , ,M> , - 
< I EA , ,  M> ,  - 
<REQA, ,M>,- 

< ,7>,- 
<REQB, ,M>- 


> 

ODOUTBUF 
OOINBUF 
SDEFENO  OD 
. SBTTL  Standard 


BLKW  1 
BLKW  1 

tables 


t  COMMAND  BIT  0 
i  COMMAND  BIT  1 
i  THREE  UNUSED  BITS 
i  ENABLE  REQUEST  B  INTERRUPTS 
i  Enable  REQUEST  A  Interrupts 
!  UNDER  CONTROL  OF  USER  DEVICE 
i  NORMALLY  USED  FOR  READY  INDICATIONS 
;  SEVEN  Disregarded  bits 
!  UNDER  CONTROL  OF  USER  DEVICE 
i  NORMALLY  USED  FOR  ERROR  CONDITIONS 

i  OUTPUT  BUFFER  WORD 

INPUT  BUFFER  WORD 

i  End  of  device  register 
i  def 1 n 1 t 1 ons . 


I 

) 

i 


Driver  prologue  table 


DPTAB 

END-ODEND.- 
ADAPTER-UBA.- 
UCBSIZE“<UCBSKODUCBLEN> , - 
NAME-ODDRIVER 
DPTSTORE  I N IT 


;  DPT-ereatlon  macro 
i  End  of  driver  label 
;  Adapter  type 
!  Length  of  UCB 
;  Driver  name 
i  Start  of  load 
;  Initialization  table 


;  Device  fork  IPL 
i  Device  Interrupt  IPL*21*BR5 
Devtce  characteristics 


DPTSTORE  UCB,UCBSBFIPL,B,8 
DPTSTORE  UCB,UCBSBDIPL,B,21 
DPTSTORE  UCB , UCBSLDEVCHAR , L , <- 

DEVSMIDV 1  -  ! 

DEVSMAVL I- 

DEVSMOOV)  ! 

DPTSTORE  UCB , UCBSBDE VCLASS , B , DCSSCOM 
DPTSTORE  UCB , UCBSBDE VTYPE , B , DTSDR 1 1C  i 

DPTSTORE  UCB  t UCBSWDE VBUF  S IZ ,W, -  i  Default 

ODDEFBUFSIZ 

DPTSTORE  RE  I  NIT  t  Start  of  reload 

;  Initialization  table 


Input  device 

output  device 
Device  class? 
DEVICE  TYPE 
buffer  size 


DPTSTORE  DDB.DDBSLDOT.D.OOSOOT  i 
DPTSTORE  CRB.CRBSLINTD+4.D.- 
OD I NTERRUPT 

DPTSTORE  CRB , CRBSL INTD2+4 , D , - 
OOINTERRUPT 
DPTSTORE  CRB , - 

CRBSL I NTD+VECSL INITIAL,- 
D .ODCONTROL I  NIT 
DPTSTORE  CRB , - 

CRBSL INTO +VECSLUNITINIT,- 
O.ODUNITINIT 
DPTSTORE  END 


Address  of  DDT 

s  Address  of  Interrupt 
j  service  routine  REQ  A 
i  REQ  B  INTERRUPT  ROUTINE 

? 

;  Address  of  controller 
l  Initialization  routine 


;  Address  of  device 
;  unit  Initialization 
i  routine 

i  End  of  Initialization 
i  tables 


t 

i  Driver  dispatch  table 
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ODTAB 

DEVNAM-OD,- 
START-ODSTART,- 
FUNCTB“ODFU NOTABLE ,  - 
CANCEL-OOCANCEL,- 
REGDMP-ODREGDUMP 
t 

;  Function  decision  table 
t 

ODFUNCTABLE: 

FUNCTAB 

<READVBLK,- 
READLBLK, - 
READPBLK ,  - 
WRITEVBLK,- 
WR ITELBLK , - 
WRITEPBLIO 

FUNCTAB 

<READVBL< , - 
READLBLK , - 
READPBLK, - 
WRITEV8LK.- 
WRITELBLK,- 
WRITEPBLK> 

FUNCTAB  ODWR ITEDR1 1CFDT, - 
<WRITEVBLK , - 
WRITELBL  K , - 
WRITEPBIK> 

FUNCTAB  ODREADDR11CFDT,- 
<READVBLK , - 
READLBLK, - 
READPBLK> 

.LONG  -1 
.LONG  -1 

.ADDRESS  OOPS 

. SBTTL  ODCONTROL I N IT ,  Controller 

I  ♦♦ 

l  ODCONTROL I  NIT,  Readies  controller  for 
i  Functional  description: 


i  DDT-creatlon  macro 
;  Name  of  device 
I  Start  I/O  routine 

;  FDT  address 
i  Cancel  I/O  routine 
;  Register  dump  routine 


:  FDT  for  driver 
:  Valid  I/O  functions 
;  Read  virtual 
;  Read  logical 
;  Read  physical 
i  Write  virtual 
i  Write  logical 
;  Write  physical 
i  Buffered  functions 
;  Read  virtual 
;  Read  logical 
;  Read  physical 
i  Write  virtual 
;  Write  logical 
i  Write  physical 

i  Write  virtual 
i  Write  logical 
i  Write  physical 

:  Read  virtual 
;  Read  logical 
:  Read  physical 
i  SET  ALL  BITS  FOR  THE 
;  FDT  CATCH  ALL  ERROR  ROUTINE 

Initialization  routine 


I/O  operations 


Tha  operating  system  calls  this  routine  In  3  places: 


at  system  startup 

during  driver  loading  and  reloading 
during  recovery  from  a  power  failure 

Inputs: 


R4 

-  address 

of 

the 

CSR 

R5 

-  address 

of 

the 

IDB 

R6 

-  address 

of 

the 

DDB 

R8 

-  address 

of 

the 

CRB 

Icontroller  status  register) 
(Interrupt  data  block) 
(device  data  block) 

(channel  request  block) 
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i  Outputs: 

i 

;  The  routine  must  preserve  all  registers  except  R0-R3. 


ODCONTROLINIT:  ;  Initialize  controller 

RSB  :  Return 

. SBTTL  ODUNITINIT,  Unit  Initialization  routine 

i  ♦♦ 

t  ODUNITINIT,  Readies  unit  for  I/O  operations 
i 

t  Functional  description: 

: 

i  The  operating  system  calls  this  routine  after  calling  the 

l  controller  Initialization  routine: 


at  system  startup 

during  drtver  loading 

during  recovery  from  a  power  failure 

Inputs : 

R4  -  address  of  the  CSR  (controller  status  register) 

R5  -  address  of  the  UCB  (unit  control  block) 

Outputs : 


The  routine  must  preserve  all  registers  except  R0-R3. 


ODUNITINIT: 

BISW 

RSB 

.SBTTL 

1  ♦♦ 

;  ODFDTROUTINE, 


i  Initialize  unit 

UCBSMONL INE ,  - 

UCBSWSTS ( R5 )  :  Set  unit  online 

i  Return 

ODFDTROUTINE,  ON  LINE  DIGITIZER  DRU-C  FDT  routine 
ON  LINE  DIGITIZER  DR11-C  FDT  routine 


Functional  description: 

SET  UP  FOR  BUFFERED  10  ON  THIS  DRU-C 


Inputs: 

R0-R2 

R3 

R4 

R5 

R6 

R7 

R8 

R9-R1 1 
AP 

Outputs : 


scratch  registers 

address  of  the  IRP  (I/O  request  packet) 
address  of  the  PCB  (process  control  block) 
address  of  the  UCB  (unit  control  block) 
address  of  the  CCB  (channel  control  block) 
bit  number  of  the  I/O  function  code 
address  of  the  FDT  table  entry  for  this  routine 
scratch  registers 

address  of  the  1st  function  dependent  QIO  parameter 
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The  routine  must  preserve  all  registers  except  R0-R2,  and 
R9-R1 1 . 


OOPS: 


CATCH  ALL  FDT  ERROR  ROUTINE 


MOVL 

JSB 

ODWRITEDR1 1CFDT  '■ 
MOVQ 


SSSILLIOFUNC.R0 
GE  XE  SABORT I 0 

PllAP  1  ,R0 


TSTL 

BGTR 

MOVL 

OMP 

IS:  JSB 

»  MOVL 

;  OMP 

PUSHR 

OSB 

POPR 

BLBS 

1 1 S :  OMP 

10S :  PUSHR 

MOVL 
ADDL2 
OSB 
POPR 
BLBC 
AD0L3 

MOVL 

MOVL 

MOVL 

SUBL 

PUSHR 

MOVC  3 

POPR 

MOVW 

OMP 

ODREADDR1 1CFDT : 


R 1 
IS 


t  ILLEGAL  I/O  FUNCTION  SPECIFIED 
i  SO  LET'S  ABORT 
l  WRITE  FDT  routine 
i  MOVE  BUFFER  ADDRESS  IN  R0 
AND  BUFFER  SIZE  IN  R! 

IF  BUFFER  SIZE  < -0  WE  HAVE  PROBLEMS 
OTHERWIZE  LETS  GET  ON  WITH  IT 


SSSI VBUFLEN . R0  i  MOVE  THE  ERROR  STATUS  INTO  R0 


GEXESF I N I 3H 10 
GEXESWRITECHK 

SSSNOACNT.R0 
GEXESF INISHIO 
M<R2 , R3> 


BAD  BUFFER  SIZE 
ABORTS  AND  DOESN'T  COME  BACK  IF  IT 
CAN'T  WRITE  TO  BUFFER 
««...**.0NL¥  F0R  ERROR  CHECKING**** 
********ONLY  FOR  ERROR  CHECKING**** 
SAVE  R2  AND  R3  FROM  BUFFRQUOTA 


GEXESBUFFRQUOTA  i  CHECK  TO  SEE  IF  QUOTA  CAN  HANDLE  THIS 


M<R2 , R3> 

R0, 10S 

GEXESABORTIO 
M<  R3  > 

R1  ,R9 

12. R1 

GEXESALLOCBUF 

M<R3> 

R0. 11$ 

R2.  1 2 , ( R2  ) 

RZ , IRPSLSVAPTEI R3 ) 
PllAP  ) , 4 ( R2  ) 


: 


RESTORE  R2  AND  R3 
IF  ERROR  WE  EXCEEDED  QUOTA 

GO  TELL  HIM  ABOUT  THE  ERROR  AND  DON'T  COME  BACK 
SAVE  IRP  ADDRESS  FROM  ALLOCBUF 
SAVE  BUFFER  SIZE  IN  R9  JUST  FOR  GRINS 
SAVE  BUFFER  SIZE  TO  CHARGE  PROCESS 
i  ALLOCATE  SOME  NON-PAGED  POOL  FOR  THIS 
RESTORE  IRP  ADDRESS  TO  R3 
IF  ERROR  INSUFFICIENT  MEMORY  AVAILABLE 
INIT  FIRST  LONGWORD  OF  BUFFER  WITH 
ADDRESS  OF  DATA  AREA 
PUT  AO0RESS  OF  SYSTEM  BUFFER 
INIT  SECOND  LONGWORD  WITH  USER  BUFFER 
;  ADDRESS 

PCBSLJIB(R4),R0  i  JET  JIB  ADDRESS 


R9,JIBSLBYTCNT(R0> 
M<R1 ,R2,R3,R4,R5> 
P2<  AP  )  ,@4(R2 ) ,@<RZ) 
M<R1 ,R2,R3.R4.R5> 
R9 , 1 RP SWBOFF ( R3  > 

GEXESQIODRVPKT 


51$: 


SUBW2 

IOSREADLBLK- 

IRPSWFUNC1R3) 

MOVQ 

PllAP ) ,R0 

TSTL 

R1 

BGTR 

51S 

JMP 

GEXESF INISHIO 

JSB 

GEXESREADCHK 

!  CHARGE  PROCESS  FOR  BUFFER  SPACE  USED 
i  SAVE  ALL  THESE  FOR  THE  MOVC 

MOVE  USER  BUFFER  INTO  SYSTEM  BUFFER 
RESTORE  THESE  NOW  AFTER  MOVC 
NUMBER  OF  BYTES  CHARGED  AGAINST 
?  USER'S  PROCESS  QUOTA 
i  NOW  GO  QUEUE  I/O  REQUEST  PACKET 
i  READ  FDT  routine 

READPBLK, -  ;  SET  I/O  FUNCTION  CODE  IN  IRP 

l  MOVE  BUFFER  ADDRESS  IN  R0 
i  AND  BUFFER  SIZE  IN  R1 

l  IF  BUFFER  SIZE  <-0  WE  HAVE  PROBLEMS 
i  OTHERWIZE  LETS  GET  ON  WITH  IT 
i  BAD  BUFFER  SIZE 

•.  ABORTS  AND  DOESN'T  COME  BACK  IF  IT 
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51 1 S: 
510S: 


CAN'T  WRITE  TO  BUFFER 

PUSHR 

M<  R0, R3> 

« 

SAVE  R0  AND  R3  FROM  BUFFRQUOTA 

ADDL2 

12,  Rl 

OSB 

GEXESBUFFRQUOTA  i 

CHECK  TO  SEE  IF  QUOTA  CAN  HANDLE  THIS 

BLBS 

R0.510S 

* 

IF  ERROR  WE  EXCEEDED  QUOTA 

JMP 

GEXESABORTIO 

GO  TELL  HIM  ABOUT  THE  ERROR  AND 

DON'T  COME  BACK 

OSB 

GEXESALLOCBUF 

t 

ALLOCATE  SOME  NON-PAGED  POOL  FOR 

THIS 

BLBC 

R0.511S 

; 

IF  ERROR  INSUFFICIENT  MEMORY  AVAILABLE 

POPR 

M<  R0 , R3> 

* 

RESTORE  R0  AND  R3 

MOVL 

R2,IRPSLSVAPTE(R3> 

} 

PUT  ADDRESS  OF  SYSTEM  BUFFER 

MOVW 

Rl . IRPSWBOFFI R3 ) 

1 

BYTE  QUOTA  CHARGED 

PUSHL 

R0 

MOVL 

PCBSL J I B( R4 1 , R0  ; 

JET  JIB 

ADDRESS 

SUBL 

Rl , 0 IBILBYTCNT ( R0) 

; 

CHARGE  PROCESS  FOR  BUFFER  SPACE 

USED 

POP  L 

R0 

MOVAB 

12(R2),(R2)+ 

; 

SAVE  DATA  AREA  ADDRESS 

MOVL 

R0,(R2) 

; 

SAVE  USER  BUFFER  ADDRESS 

JMP 

GEXESQIODRVPKT 

; 

NOW  GO  QUEUE  I/O  REQUEST  PACKET 

.  SBTTL 

ODSTART,  Start  I/O 

rout  1 ne 

OOSTART  -  Start  a  transmit,  recalve  data  from  or  to  drll-c 
Functional  description: 

START  A  READ  OR  WRITE  TO  ON  LINE  DIGITIZER  DRll-C 
Inputs : 


R3 

R5 


-  address  of  the  IRP  (I/O  request  packet) 

-  address  of  the  UCB  (unit  control  block) 


Outputs : 

R0 
R1 

The  routine  must  preserve  all  registers  except  R0-R2  and  R4. 


-  1st  longword  of  I/O  status:  contains  status  code  and 
number  of  bytes  transferred 

-  2nd  longword  of  I/O  status:  device-dependent 


ODSTART :  l  Process  an  I/O  packet 

ADDL2  BUFOVRHD , UCBSLSVAPTEI R5 1 i  SKIP  SYS  BUF  HEADER 

REQPCHAN  :  PUTS  CSR  ADDRESS  IN  R4 

MOVU  UCBIWBCNT1 R5 1 , UCB$WODBYTCNT{ R5 1 :  MOVE  BYTE  COUNT  TO 

NEW  UCB  FIELD 

CLRW  UCBSWBCNT(RS)  ;  CLEAR  UCB  BYTE  COUNT 

CL RW  0DCSR(R4)  I  CLEAR  CSR 

l  EXTZV  I RP  SVFCODE ,  IRPSSFCODE,- 

i  I RPSWFUNC1 R3 ) , R2 

:  CMPL  IOSREADPBLK, R2 

CMPZV  IRPSVFCOOE ,  IRPSSFCODE 

IRPSWFUNCI R3 1 ,  IOSREADPBLK 

BEQL  READD  :  WANT  TO  GO  READ  DR11-C 

BRB  READD 


t 


WRITE: 
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DSBINT  UC8$BDIPL( R5  >  l  DISABLE  INTERRUPTS 

MOVW  9UCBSLSVAPTE1 R5  ) , ODOUTBUF { R 4  )  t  PUT  DATA  INTO  DEVICE  OUTPUT  REGISTER 

BISW2  <ODCSRMIEA>,-  I+ODCSRMCSR0 

ODCSR( R4 )  i ENABLE  DEVICE  TO  INTERRUPT 

SETIPL  IPL3P0WER  l  CHECK  FOR  POWER  FAIL 

BBCC  UCBSVPOWER , - 

UCBSWSTSf  R5  > ,  - 
WAITWRITE 

ENBINT 

RELCHAN 

MOVZWL  SSSPOWERFAIL  ,  R0 
REQCOM 
WAITWRITE: 

WFIKPCH  ODTIMEOUT ,  OOTIMEOUTSEC 

I NCL  UCBSWBCNT(RS)  t  INCREMENT  NUMBER  OF  WORDS  TRANSFERED 


t  After  a  transfer  completes  successfully,  return  the  number  of  bytes 
i  transferred  and  a  success  status  code. 

i 

MOVW  ODOUTBUF ( R4 ) , UCBSWODOUTBUF ( R5  )  i  DEVICE  OUTPUT  REGISTER 

MOVW  ODINBUF <  R4 ) , UCBSWODCSR1  R5  >  t  PUT  THE  INBUF  IN  IOSB  STATUS  WORD 

IOFORK 

I NCL  UCBSLSVAPTE(RS)  i  INCREMENT  SYSTEM  DATA  AREA  ADDRESS 
I NCL  UCBSLSVAPTEl R5  ) 

DECW  UCBSWODBYTCNT (  R5 )  !  DECREMENT  BYTE  COUNT  TO  SEE  IF  DONE 

DECW  UCBSWODBYTCNT! R5 )  i  DECREMENT  BYTE  COUNT  TO  SEE  IF  DONE 

BGTR  WRITE 

FINISH:  RELCHAN 


< 


I NSV  UCBSWBCNT ( R5  ) ,  16 

16,  R0 

MOVW  SSSNORMAL.R0 

I NSV  UCBSWODOUTBUF (R5) 

16, R1 

I NSV  0,  16.  16, Rl 

MOVW  UCBSWODCSR1 R5 ) , Rl 


: 

:  Call  I/O  postprocessing. 
: 

COMPLETE  10: 

REQCOM 


1 

i  READ  LOOP 


l  Load  number  of  bytes  trans- 
i  ferred  Into  high  word  of  R0. 
i  Load  a  success  code  Into  R0. 
16,-  j  LOAD  OUTBUF  IN  I0SB(4> 

i  CLEAR  UPPER  WORD.  I0SB14) 

PUT  THE  INBUF  IN  IOSB  STATUS  WORD 


l  Driver  processing  Is  finished, 
i  Complete  I/O. 


READO: 

READ: 

GO: 


MOVL  0IRPSLSVAPTE1 R3 ) , UCBSLSVAPTE ( R5  >  l  GET  BUFFER  ADDRESS 

DSBINT  UCBSBO I  PL ( RS  )  i  DISABLE  INTERRUPTS 

BISW2  <ODCSRMIEB+ODCSRMCSR0> , -  ;ODCSRMIEA+ 

ODCSR( R4  )  ; ENABLE  DEVICE  TO  INTERRUPT 

SETIPL  IPLSPOWER  ;  CHECK  FOR  POWER  FAIL 

BBCC  UCBSVPOWER, - 

UCBSWSTS1 R5  ) , - 
WA I TREAD 

ENBINT 

RELCHAN 
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MOVZWL  SSIPOWERFAIL.R0 
REQCOM 
WA I TREAD: 

WFIKPCH  ODTIMEOUT ,  ODTIMEOUTSEC 

MOVW  0DINBUF(R4), 9UCBSLSVAPTE ( R5 ) i  READ  INPUT  DATA  REGISTER 

t 

i  After  a  transfer  completes  successfully,  return  the  number  of  bytes 
t  transferred  and  a  success  status  code, 
i 

INCL  UCBSWBCNT(RS)  t  INCREMENT  NUMBER  OF  WORDS  TRANSFERED 

MOVW  ODINBUF(R4),UCBSWOOCSR(R5)  i  PUT  THE  INBUF  IN  I0SB  STATUS  WORD 
MOVW  ODOUTBUF <  R4 ) , UCBSWODOUTBUF <  R5 ) ;  DEVICE  OUTPUT  REGISTER 

IOFORK 

INCL  UCBSLSVAPTE(RS)  i  INCREMENT  SVSTEM  DATA  AREA  ADDRESS 

INCL  UCBSLSVAPTE1  RS )  t  INCREMENT  SYSTEM  DATA  AREA  ADDRESS 

DECW  UCBSWODBYTCNT<  R5 )  ;  DECREMENT  BYTE  COUNT  TO  SEE  IF  DONE 

DECW  UCBSWODBYTCNT<R5>  l  DECREMENT  BYTE  COUNT  TO  SEE  IF  DONE 

BGTR  READ 

BRW  FINISH 

I 

i  Device  timeout  handling.  Return  an  error  status  code. 

i 

ODTIMEOUT:  1  Timeout  handling 

MOVW  0.9UCBSLSVAPTE1 RS )  i  NO  DATA  PUT  OUT 

BICW2  <ODCSRMCSR0>,ODCSR(R4)|  SET  CONTROL  LINE  0  LOW 
SETIPL  UCBSBF IPL ( R5  )  i  Lower  to  driver  fork  IPL 

MOVZWL  SSSTIMEOUT, R0  f  Return  error  status, 

l  MOVL  63, R1  !  ..  STATUS  TESTING.. 

MOVW  UCBSWODCSR1 R5 ) , R1  i  PUT  THE  CSR  IN  IOSB  STATUS  WORD 

BRB  COMPLETE  10  l  Call  I/O  postprocessing. 

.  SBTTL  ODINTERRUPT,  Interrupt  service  routine 

I  +  + 

i  ODINTERRUPT,  Analyzes  Interrupts,  processes  solicited  Interrupts 
t 

i  Functional  descr Ipt Ion: 
i 

;  The  sample  code  assumes  either 

: 

i  that  the  driver  Is  for  a  slngle-untt  controller,  and 

i  that  the  unit  Initialization  code  has  stored  the 

:  address  of  the  UCB  In  the  IDBj  or 

t 

l  that  the  driver's  start  I/O  routine  acquired  the 

l  controller's  channel  with  a  REQPCHANL  macro  call,  and 

i  then  Invoked  the  WFIKPCH  macro  to  keep  the  channel 

i  while  waiting  for  an  Interrupt, 

t 

i  Inputs: 

: 

i  0(SP>  -  pointer  to  the  address  of  the  IDS  ( Interrupt  data 

i  block) 

l  4<SP>  -  saved  R0 

i  8<  SP  >  saved  R1 

i  121 SP  )  -  saved  R2 

i  161 SP)  -  saved  R3 
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20<SP>  -  saved  R4 

24<  SP  )  -  saved  R5 

28(SP)  -  saved  PSL  (program  status  longword) 

3 2 ( SP  )  -  saved  PC 

The  I  OB  contains  the  CSR  address  and  the  UCB  address. 
Outputs : 

The  routine  must  preserve  all  registers  except  R0-R5. 


ODINTERRUPT:  t  Service  device  Interrupt 

MOVL  0(SP)+,R4  i  Get  address  of  IDB  and  remove 

;  pointer  from  stack. 

MOVL  IDBSLOWNER( R4 ) ,R5  j  Get  address  of  device  owner's 

l  UCB. 

MOVL  IDBSLCSR(R4),R4  i  Get  address  of  device's  CSR. 

BICV2  <ODCSRMCSR0>,ODCSR< R4 > i  SET  CONTROL  LINE  0  LOW 
BBCC  UCBSVINT,-  t  If  device  does  not  expect 

UCBSWSTS( R5 ) , -  i  Interrupt,  dismiss  It. 

UNSOLINTERRUPT 
l 

i  This  Is  a  solicited  Interrupt.  Save 

t  the  contents  of  the  device  registers  In  the  UCB.  NOT  NEEDED  IN  THIS  DRIVER 


i  Restore  control  to  the  main  driver. 

i 

RESTOREDRIVER:  t  Jump  to  main  driver  code. 

MOVL  UCBSLFR3( R5  ) , R3  i  Restore  driver's  R3  (use  a 

I  MOVQ  to  restore  R3-R4). 

OSB  9UCBSLFPC( R5 >  i  Call  driver  at  Interrupt 

i  wait  address. 
i 

l  Dismiss  the  Interrupt. 

i 

UNSOLINTERRUPT:  i  Dismiss  unsolicited  Interrupt. 

POPR  M<R0 , R 1 , R2 , R3 , R4 , R5 >  (  Restore  R0-R5 

RE  I  l  Return  from  Interrupt. 

. SBTTL  ODCANCEL,  Cancel  I/O  routine 

l  ♦♦ 

i  ODCANCEL.  Cancels  an  I/O  operation  In  progress 

i 

i  Functional  description: 

: 

t  Thts  routine  calls  IOCSCANCELIO  to  set  the  cancel  bit  In  the 

l  UCB  status  word  If: 

l 

<  the  device  Is  busy. 

:  the  IRP's  process  ID  matches  the  cancel  process  ID, 

i  the  IRP  channel  matches  the  cancel  channel. 

: 

i  If  IOCSCANCELIO  sets  the  cancel  bit,  then  thts  driver  routine 

i  does  device-dependent  cancel  I/O  fixups. 
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Inputs : 

R2  -  channel  Index  number 

R3  -  address  of  the  current  IRP  (I/O  request  packet) 

R4  -  address  of  the  PCB  (process  control  block)  for  the 

process  cancel Ing  I/O 

R5  -  address  of  the  UCB  (unit  control  block) 

R8  -  cancel  reason  code,  one  of: 

CANSCCANCEL  If  called  through  SCANCEL  or 

SDALLOC  system  service 

CANSCDASSGN  If  called  through  SDASSGN  system 

serv 1 ce 

These  reason  codes  are  defined  by  the  SCANDEF  macro. 

Outputs : 

The  routine  must  preserve  all  registers  except  R0-R3. 

The  routine  may  set  the  UCBSMCANCEL  bit  In  UCBSWSTS. 


ODCANCEL:  ;  Cancel  an  I/O  operation 

JSB  GIOCSCANCEL 10  :  Set  cancel  btt  If  appropriate. 

BBC  UCBSVCANCEL , -  t  If  the  cancel  bit  Is  not  set, 

UCBSWSTS! R5),10S  ;  just  return. 

1 

:  Device-dependent  cancel  operations  go  next. 


i  Finally,  the  return. 

i 

10S: 

RSB  i  Return 

.  SBTTL  ODREGDUMP,  Device  register  dump  routine 

1  ♦  ♦ 

:  ODREGDUMP,  Dumps  the  contents  of  device  registers  to  a  buffer 
i  Functional  description: 

I  Writes  the  number  of  device  registers,  and  their  current 

i  contents  Into  a  diagnostic  or  error  buffer. 

i  Inputs: 

;  R0  -  address  of  the  output  buffer 

i  R4  -  address  of  the  CSR  (controller  status  register) 

i  R5  -  address  of  the  UCB  (unit  control  block) 

:  Outputs: 

i  The  routine  must  preserve  all  registers  except  R1-R3. 

t  The  output  buffer  contains  the  current  contents  of  the  device 

:  registers.  R0  contains  the  address  of  the  next  empty  longword  In 
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i  the  output  buffer. 


ODREGDUHP: 

MOVZBL  ODNUMREGS, ( R0 ) ♦ 

MOVZWL  UCBSWODBYTCNT( R5  )  ,- 
(  RjB  )  ♦ 

RSB 

.SBTTL  ODEND,  End  of  driver 

i  +♦ 

j  Label  that  marks  the  end  of  the  driver 
i  — 

ODEND: 

.END 


Dump  device  registers 
Store  device  register  count. 
Store  BVTE  count  register. 

Return 


Last  location  In  driver 
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